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I.  LOT  ACCEPTANCE  VIA  ATTRIBUTE  SAMPLING  (LAVAS) 

A.  Acceptance  Sampling  Scope 

A  substantial  portion  of  quality  assurance  deals  with  acceptance  sampling.  One  facet 
of  this  ongoing  effort  deals  specifically  with  attribute  sampling  in  which  a  sampled  unit  is 
judged  to  be  conforming  or  nonconforming,  good  or  bad,  successful  or  unsuccessful,  hit  or  nii!«^ 
reliable  or  failed,  and  so  on.  A  unit’s  performance  is  classified  in  one  of  two  ways.  The  purpose 
of  acceptance  sampling  attributes  is  to  perform  a  hypothesis  test  which  will  lead  to  a  decision  to 
accept  or  reject  an  inference  concerning  the  ratio  of  the  number  of  units  possessing  one  attribute 
classification  to  the  total  number  of  units  comprising  the  population.  In  the  case  of  missiles  dndj 
or  rodcets,  acceptance  sampling  is  performed  as  a  milestone  which  precedes  the  initial  accep¬ 
tance  of  a  lot  and  as  a  means  of  monitoring  stockpile  reliability  after  the  lot  becomes  govern¬ 
ment  property. 

It  is  pertinent  to  emphasize  that  acceptance  sampling  is  not  an  attempt  to  estimate  or 
control  lot  quality.  Moreover,  it  is  but  one  part  of  the  decision  process  which  ultimately  leads  to 
the  acceptance  or  rejection  of  defined  inferences  pertaining  to  lot  quality.  The  act  of  accepting 
or  rejecting  is  subject  to  the  possibility  of  being  the  wrong  act.  That  is,  one  might  accept  when 
the  conect  decision  should  be  to  reject,  or  one  might  reject  when  the  conect  decision  should  be 
to  accept.  A  comprehensive  analysis  of  any  sampling  plan  should  include  a  complete  assessment 
of  the  probability  of  making  the  wrong  decision.  Additionally,  the  comprehensive  analysis 
should  also  assess  the  sampling  burden  imposed  by  the  sampling  plan.  The  classical  approach  to 
these  two  assessments  involve  the  construction  of  two  schematics,  the  Operating  Giaracteristic 
(OC)  curve  and  the  Average  Sample  Number  (ASN)  plot.  The  OC  curve  provides  a  graphical 
representation  of  the  relationship  between  the  sampling  plan’s  probability  of  acceptance  and  the 
appropriate  quality  characteristic.  The  ASN  plot  serves  the  purpose  of  graphically  illustrating 
the  relationsUp  between  the  expected  number  of  samples  to  a  dedsion,  to  accept  or  reject,  and 
the  appropriate  quality  characteristic.  These  two  sdiematics  will  be  discussed  in  greater  detail 
subsequently. 

B.  lypcs  of  Attribute  Acceptance  Sampling  Plans 

The  simplest  type  of  acceptance  sampling  plan  is  the  single  sampling  plan.  The  me- 
dianics  are  straightforward  in  that  a  random  sample  of  size  n  is  drawn  from  a  lot  or  process.  If 
the  total  number  of  defectives  is  less  than  or  equd  to  the  acceptance  number  (cl)  the  lot  is  ac¬ 
cepted  (i.  e.,  the  hypothesis  that  quality  is  at  an  acceptable  level  cannot  be  rejected).  Single  sam¬ 
pling  plans  are  the  simplest,  conceptuidly,  but  they  require  a  relatively  large  sample  size  when 
compared  to  other  types  of  plans. 

To  reouce  the  expected  sampling  burden  subject  to  constraints  on  the  risks,  double 
sampling  plans  are  sometimes  used.  A  double  sampling  plan  is  specified  by  five  numbers,  cl, 
c2,  c3,  nl,  and  n2.  The  mechanics  of  the  plan  involve  drawing  a  random  sample  of  nl  units.  If 
cl  or  less  defectives  are  found  in  the  sample,  the  lot  is  accepted  without  further  sampling.  If  the 
sample  contains  c2  or  more  defectives,  the  lot  is  rejected  with  no  further  sampling  done  on  the 
lot  If  the  total  number  of  defectives  is  greater  than  cl  but  less  than  c2,  a  second  random  sample 
of  size  n2  is  drawn  from  the  lot  If  the  cumulative  number  of  defectives,  from  both  samples,  is 
less  than  or  equal  to  c3,  the  lot  is  accepted.  Otherwise,  the  lot  is  rejected.  The  economies  real¬ 
ized  in  total  samples  required  to  a  dedsion  by  instigating  double  sampling  in  lieu  of  single  sam¬ 
pling  are  somewhat  ofiO^t  by  the  complexity  assodated  with  implementation.  However,  in  the 
case  of  high  unit  cost,  destructive  testing,  and  relatively  small  lot  sizes,  the  complexity  involved 
with  the  implementation  will  yield  significant  dividends. 
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The  minimum  expected  number  of  samples  to  a  decision  is  obtained  by  the  use  of  a 
sequential  sampling  plan,  such  as  Wald’s  item-by-item  sequential  sampling  plan.  A  detailed 
discussion  of  Wald’s  plan  can  be  found  in  Reference  1.  Let  it  suffice  to  say  Aat  a  lot  can  be  ac¬ 
cepted  or  rejected  after  the  sampling  of  a  single  unit.  Some  restrictions  apply  pertaining  to  the 
minimum  sample  size  for  both  the  acceptance  and  rejection  ranges.  There  are  several  distinct 
disadvantages  to  Wald’s  plan  which  in  many  cases  prevent  it  from  being  applied.  Specifically, 
the  administration  burden  of  the  plan  is  extremely  Ugh,  the  number  of  units  sampled  to  a  deci¬ 
sion  is  variable  for  lots  of  equal  quality,  and  the  possibility  exists  that  an  entire  lot  can  be 
sampled  without  a  decision  to  accept  or  reject.  Sequential  sampling  plans  are  often  truncated  to 
limit  the  maximum  sample  size  and  preclude  the  possibility  of  sampling  the  entire  lot.  When 
this  is  done,  the  resulting  plan  is  no  longer  a  theoretical  sequential  plan.  It  becomes  a  multiple 
sampling  plan. 

Multiple  sampling  plans  specify  drawing  a  random  sample  whose  size  is  a  design 
specification  of  the  plan.  If  the  total  number  of  defectives  observed  in  the  sample  is  less  than  or 
equal  to  the  first  sampling  tier’s  acceptance  number,  the  lot  is  accepted.  If  the  total  number  of 
defectives  is  greater  than  or  equal  to  the  first  tier’s  rejection  number,  the  lot  is  rejected.  In  either 
case,  the  decision  is  made  and  sampling  ceases.  If  the  number  of  defectives  is  greater  than  the 
acceptance  number  and  less  than  the  rejection  number,  another  sample  is  drawn.  It  is  not  often 
the  case  nor  is  it  necessary  for  the  sample  sizes  to  be  equal.  Each  sampling  tier’s  sample  size, 
acceptance  number,  and  rejection  number  are  design  parameters  of  the  plan.  After  this  subse¬ 
quent  sample  is  drawn  and  the  cumulative  number  of  defectives  tabulated,  the  composite  number 
of  defectives  is  compared  to  the  new  tier’s  acceptance  number  and  rejection  number.  If  the  cu¬ 
mulative  number  of  defectives  lies  between  the  acceptance  and  rejection  numbers,  another  sam¬ 
ple  is  drawn  and  the  procedure  is  repeated. 

This  repetitive  procedure  continues  until  the  lot  is  accepted  or  rejected.  A  decision  is 
guaranteed  with  a  multiple  sampling  plan  since  the  plan  converges  on  the  last  sample.  Conver¬ 
gence  occurs  when  the  acceptance  number  plus  one  equals  the  rejection  number.  In  other  words, 
there  are  no  continuation  numbers  at  the  convergence  sampling  tier.  Even  though  multiple  sam¬ 
pling  plans  possess  expected  sample  sizes  to  a  decision  which  are  numerically  greater  than  those 
obtainable  through  sequential  sampling,  multiple  sampling  plans  are  more  commonly  used.  This 
is  probably  due  to  the  convergence  feature  and  the  somewhat  reduced  implementation  burden. 

C  Sampling  Plan  Evaluation 

The  evaluation  of  a  sampling  plan  generally  consists  of  two  parts,  an  evaluation  of  the 
plan’s  effectiveness  stated  in  terms  of  probability  of  acceptance  versus  the  chosen  quality  charac¬ 
teristic  and  an  evaluation  of  the  plan’s  operating  cost  stat^  in  terms  of  the  expected  number  of 
units  sampled  to  a  decision  versus  the  chosen  quality  characteristic.  Both  evaluations  require 
consideration  of  the  probabilistic  aspects  of  the  sampling  implementation. 

The  probability  of  acceptance  of  a  given  sampling  plan  is  a  function  of  the  plan  itself 
and  a  function  of  the  qu^ty  of  the  population  of  units  from  which  the  samples  are  drawn.  The 
designer  can  exercise  control  over  Ae  spedfics  of  the  sampling  plan,  such  as  the  numeric  values 
of  sample  size  and  acceptance  numbers,  but  no  control  is  extended  to  the  quality  of  the  popula¬ 
tion.  Therefore,  the  probability  of  acceptance  must  be  examined  over  the  entire  range  of  values 
the  quality  characteristic  can  t^e  on.  This  exerdse  is  customarily  accomplished  by  the  use  of  a 
two-^mensional  schematic  called  an  operating  characteristic  curve,  or  simply  OC  curve.  Fig¬ 
ures  1  and  2  provide  examples  of  OC  curves  commonly  utilized.  Figure  1  illustrates  the  case 
where  the  lower  the  numeric  value  of  the  quality  charaderistic,  the  better.  Therefore,  the 


probability  of  acceptance  is  high  for  low  values  of  the  quality  characteristic  and  is  low  for  high 
values.  The  OC  curve  form  shown  in  Figure  1  is  the  most  frequently  encountered  and  is  ap¬ 
propriate  when  the  quality  characteristic  is  fraction  defective  or  number  of  defectives  per  lot. 
Figure  2  provides  an  illustration  of  the  case  where  the  higher  the  numeric  value  of  the  quality 
characteristic,  the  better.  This  type  of  OC  curve  is  frequently  used  when  the  quality  characteris¬ 
tic  is  unit  reliability  or  hit  probability.  Regardless  of  the  numeric  desirability  of  the  quality  char¬ 
acteristic,  the  OC  curve  provides  a  plot  of  the  sampling  plan’s  probability  of  acceptance  versus 
the  entire  range  over  which  the  quality  characteristic  can  take  on  values. 


Quality  Charaetapistic 


Fig^re  1.  OC  Curve  for  a  ‘Lower  is  Better’  Quality  Characteristic 
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Ouaitty  Charaetar Istie 


Figure  2.  OC  Curve  for  a  ‘Hitter  is  Better'  Quality  Characteristic 

In  a  similar  fashion,  the  expected  number  of  units  sampled  to  a  decision  is  {dotted 
versus  the  fuU  range  of  the  quality  characteristic.  This  ty{)e  of  {dot  is  called  an  ASN  plot.  Care 
most  be  exercised  in  dealing  with  ASN  plots  since  there  are  two  types,  those  in  whi(±  sampling 
is  terminated,  or  curtailed,  and  those  in  which  sampling  is  not  terminated.  In  the  case  of  sample 
termination  fewer  units  are  sampled  because  sampling  stops  as  soon  as  an  a{>{>ropriate  rejection 
number  is  reached.  Other  economies  are  incurred  via  sample  termination  which  further  reduce 
the  expected  number  sampled  to  a  decision.  Consider  a  single  sampling  plan  in  whidi  the 
sample  size  is  50  with  an  aoce{}tance  number  of  2.  If  48  units  are  inspected  and  none  are  defec¬ 
tive,  the  lot  would  be  acoei)ted  without  sampling  the  remaining  2  units. 

Figure  3  illustrates  ASN  plots  which  illustrate  the  contrast  of  instigating  sample 
termination  in  this  single  sampling  case  as  opfwsed  to  not  instigating  it  The  plot  shown  in 
Figure  3  is  based  on  a  Binomial  probability  evaluation  of  the  single  sampling  example. 
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Figure  3.  ASN  Plot  for  n^50,  cs2  wiA  and  without  Sample  Termination 

D.  Binomial  Versus  Hypergeometric  Applications 

In  lot  accq>tance  sampling  of  attribute  variables,  event  probabilities  should  be  calcu¬ 
lated  by  either  the  Binomial  distribution  or  the  Hypergeometric  distribution.  Historically, 
q^oximation  techniques  involving  the  Poisson  distribution  and  the  Normal  distribution  have 
b^  used  to  alleviate  much  of  the  calculation  burden  associated  with  the  Binomial  and  the 
Hypergeometric.  ^th  the  {noliferation  of  personal  computers  and  their  expanding  computation¬ 
al  capabilities,  it  is  no  longer  necessary  to  resort  to  these  approximation  techniques  and  incur  the 
resulting  enor.  This  increase  in  precision  can  be  extremely  important  in  applications  involving 
the  destructive  testing  of  high  dollar  units  such  as  missiles  or  rockets. 

This  increased  precision  is  the  rationale  upon  which  the  software  described  herein  is 
based.  All  sampling  plan  assessments  performed  by  this  software  are  based  strictly  on  one  of 
two  scenarios: 


(1)  Scenario#!-  A  lot  is  submitted  for  sampling  which  possesses  a  finite  size, 
N,  and  a  finite  number  of  defectives,  M.  When  n  units  are 
sampled  at  random,  the  probability  Aat  exactly  X  defectives 
wiU  be  found  in  the  sample  is  given  by  the  Hypergeometric 
distribution  as. 


p(X,n,M,N) 


(N  -  M)!  M!  n!  (N  -  n)! 

(n  -  X)!  (N  -  M  -  n  +  X)!  X!  (M  -  X)!  N! 


(1) 
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Reference  1  states  that  this  type  of  analysis  leads  to  a  lype  A  OC  curve.  To  avoid  confusion 
between  Type  A  and  Type  B  OC  curves,  all  Type  A  curves  provided  by  this  source  code  will 
possess  an  X  axis  which  is  labeled  defectives  per  lot.  All  Type  B  curves’  X  axis  will  be  labeled 
percent  defective. 

(2)  Scenario  #2  -  If  the  units  of  production  come  from  a  process  which  is  in 
‘statistical  control’,  producing  products  which  possess  a 
probability  of  being  defective  equal  to  p,  and  one  desires 
the  proportion  of  lots  of  size  N  Aat  will  be  accepted,  then 
the  Binomial  distribution  should  be  used  to  calculate  the 
probability.  Specifically,  when  n  units  are  randomly 
selected,  the  probability  that  exactly  X  will  be  defective 
is  given  by  the  expression, 

=  XI  1°-  X)l  ~  •  (2) 

All  probability  evaluations  provided  by  this  software  are  based  on  either  Equation  (1)  or 
Equation  (2).  The  appropriate  selection  is  a  user  option  which  can  be  exercised  via  embedded 
response  prompts. 

E.  Summary 

Section  II  provides  a  series  of  examples  that,  taken  as  a  whole,  constitute  an  exhaus* 
five  illustration  of  the  software’s  applicability,  input  requirements,  and  output  descriptions.  The 
examples  begin  with  single  sampling  plan  design  and  assessment  and  progressively  step  though 
double  sampling,  multiple  sampling,  sequential  sampling,  and  sequential  plan  truncation.  In 
each  case,  die  output  will  consist  of  an  OC  curve  and  an  ASN  plot  which  are  free  from  approxi¬ 
mation.  Therefore,  no  spikes  or  points  of  discontinuity  will  be  present  in  the  sdiematics  as  is 
often  the  case  when  one  switches  approximation  techniques.  Section  IB  provides  a  brief  conclu¬ 
sion  and  extension  discussion  of  the  program’s  current  status  and  envisioned  enhancements.  An 
attempt  is  made  throughout  this  guide  to  provide  a  generic  description  of  this  software  to  divorce 
the  use  from  a  particular  type  of  computer. 

The  appendixes  contain  the  existing  source  code  for  the  entire  program.  As  currenUy 
programmed,  the  code  is  written  in  Hewlett-Padcard  Enhanced  BASIC  which  is  acceptable  on 
an  HP9^5B  desktop  computer.  Upon  reviewing  the  code  contained  in  the  qipendixes,  the  read¬ 
er  will  quickly  see  the  similarity  between  the  Enhanced  BASIC  code  and  classical  FORTRAN 
(i.e.,  IMAGE  statements  are  FORMAT  statements,  FOR/NEXT  loops  are  DO  loops,  and  variable 
names  are  structured  alike  except  that  in  Enhanced  BASIC  only  the  first  letter  of  the  variable 
name  is  capitalized).  In  short,  minimal  effort  will  be  required  to  reprogram  the  source  code  to 
FORTRAN  or  BASIC  for  compatibility  with  various  host  computers.  The  graphical  segments  of 
the  source  code  provided  may  be  more  challenging  to  convert,  but  the  simplistic  design  of  the 
logic  flow  is  readily  transferable  to  modem  graphic  packages. 
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n.  SOFTWARE  ILLUSTRATIONS 


A.  Lot  Acceptance  Via  Attribute  Sampling  (LAVAS) 

The  main  program,  entitled  Lot  Acceptance  Ma  Attribute  Sampling  (LAVAS),  serves 
to  dimension  the  program  variables,  to  input  the  standard  values,  to  display  the  main  menu 
containing  the  primary  analysis  options,  and  to  load  and  execute  the  selected  option.  The  source 
code  comprising  LAVAS  is  provided  as  Appendix  A  to  this  report.  Figure  4  provides  an  illustra¬ 
tion  of  the  main  menu  which  contains  the  five  analyses  options.  This  menu  is  displayed  at  the 
outset  of  program  execution  and  immediately  precedes  the  first  user  prompt  for  interactive  input. 
The  remainder  of  this  section  is  devoted  to  describing,  by  example,  each  of  the  five  options 
itemized  in  Figure  4. 


LOT  ACCEPTANCE  SAMPLING  OPTIONS 


Option  Description  Select  Code 

>  Single  Sampling  Design  And  Assessment . 1 

>  Double  Sampling  Design  And  Assessment . 2 

>  Multiple  Sampling  Design  And  Assessment . 3 

>  Sequential  Sampling  Design  And  Assessment . 4 

>  TYuncated  Sequential  Sampling  or  Any  Convergent 

Plan  Assessment  (i.e.,  OC  Curve  &  ASN  Curve) . 5 

>  Program  Termination  . 6 


ENTER  THE  SELECT  CODE  OF  THE  DESIRED  OPTION. 


Figure  4.  Main  Menu 

B.  Singk  Sample  Design  and  Assessments 

This  segment  of  the  software  deals  exdusively  with  single  sampling  by  attributes  and 
allows  for  five  design  and/or  assessment  options  as  shown  in  Figure  5.  The  first  option,  entitled 
*OC  Curve/Risk  Assessment  for  a  Specific  Plan’,  is  the  fundamental  risk  assessment  for  single 
sampling  plans.  These  single  sampling  plan  are  completely  desoibed  by  a  sample  size  and  an 
acceptance  number.  The  rejection  numlxr  is  assumed  to  be  equal  to  the  acceptance  number  plus 
one,  in  all  cases.  By  entering  a  1  after  the  prompt  shown  in  Figure  5,  the  user  will  access  an 
option  that  will  provide  an  operating  characteristic  curve  for  any  specified  single  sampling  plan. 
A  series  of  user  prompts  will  be  display  at  that  time  which  are  designed  to  accrue  the  input 
required  for  the  assessment 
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>  Single  Sampling  Plan  Option  Menu  < 


Option  PcSCriptigB  Select  Code 

>OC  Curve/Risk  Assessment  for  a  Specific  Plan .  1 

>Plan  Derivation  for  Given  AQL,  LTPD,  ALPHA  and  BETA . 2 

>Plan  Derivation  for  a  Single  Point  of  Control  at  the  Indifference 

Quality  (Poisson  Based)  . 3 

>Plan  Derivation  Using  J.M.  Cameron’s  Poisson  Approximation  of  the 

OC  Curve . 4 

>Plan  Derivation  Via  MIL-STD-IOSD  Search  for  Specified  AQL,  LTPD, 

ALPHA,  and  BETA . 5 

EXIT  This  Segment  of  the  Program . 6 


ENTER  THE  SELECT  CODE  OF  THE  DESIRED  OPTION. 


Figures.  Single  Sampling  Menu 
1.  OC  Curve/Risk  Assessment  for  a  Specific  Plan 

T\vo  types  of  assessments  are  available,  one  based  on  a  Binomial  distribution 
evaluation  of  probabilities  and  one  based  on  a  Hypergeometric  evaluation  of  probabilities.  Dr. 
Adieson  J.  Duncan  provides  a  detailed  discussion  of  the  assumptions  and  conditions  pertaining 
to  the  applicability  of  each  assessment  type  [1].  Therefore,  a  discussion  of  this  topic  will  not  be 
reiterat^.  Moreover,  let  it  suffice  to  say  that  if  a  finite  lot  size  is  under  investigation,  the  Hyper* 
geometric  should  be  used.  Otherwise,  die  Binomial  is  appropriate. 

The  assessment,  in  this  single  sampling  case,  is  primarily  the  OC  curve.  The 
ASN  plot  is  a  horizontal  line,  if  sampling  tomination  is  not  imposed,  hence  a  plot  option  was 
not  included.  However,  an  average  sample  number  plot,  with  sampling  termination,  is  obtain¬ 
able  for  sample  sizes  of  SO  or  less  by  exercising  Option  5  of  the  main  menu.  This  will  be  illus¬ 
trated  for  the  Binomial  case,  and  it  is  also  avaiteble  for  the  Hypergeometric  case.  Sample 
termination  alters  the  average  sample  plot  and  the  OC  curve  from  that  derived  for  the  single 
sampling  application  because  sampling  termination  transforms  the  single  sampling  plan  into  a 
multiple  sampling  plan. 

a.  Binomial  Evaluation  of  Single  Sampling 


The  two  assessment  types,  discussed  above,  are  applied  at  the  user’s  discre- 
titm  and  are  readily  chosen  the  prompt  responses.  Specifically,  immediately  following  the 
entry  of  a  1  for  the  prompt  shown  in  Figure  S  the  user  will  be  prompted  for  sample  size.  Then  a 
prompt  will  signal  entry  of  the  acceptance  number.  These  two  entries  are  required  for  either 
assessment  type.  After  the  acceptance  number  is  entered,  the  software  will  (fisplay  the  prompt, 
‘DO  YOU  HAVE  A  FINITE  LOT  SIZE?’.  If  the  appropriate  response  is  ‘YES’,  then  a  Hyper¬ 
geometric  assessment  will  be  performed  whidi  will  be  valid  only  for  the  finite  lot  size.  If  die 
iqipropriate  req;)onse  is  ‘NO’,  then  a  Binomial  assessment  will  be  performed.  To  illustrate  the 
ouqiut,  a  sample  size  of  50  and  an  acceptance  number  of  1  was  us^  to  respond  to  the  identified 
prompts.  The  response  to  the  finite  lot  size  prompt  was  ‘NO’. 
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The  curve  shown  in  Figure  6  was  obtained  after  entering  a  specification  of 
the  desired  range  on  the  percent  defective  axis  and  a  desired  labeling  interval.  Tliese  entries 
were  prompted.  Table  1  contains  specific  points  from  the  OC  curve.  The  printing  of  such  a  table 
is  a  user  option.  Any  number  of  points  of  interest  can  be  included  in  such  a  table.  The  13  points 
shown  are  provided  purely  for  illustration  purposes. 


Figure  6.  Binomial  OC  Curve  for  n=50,  c^l 
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Table  1.  Tabular  OC  Curve  Points  for  ns50,  c»l 


Operating  Characteristic  (OQ  Curve 

Single  SamjAing  Plan:  n  s  Smple  and  c  s  1 
(Binomial  Distribution  Probabilities) 

Percent  Defective 

Probability  of  Acceptance 

.5000 

97.3868 

91.0565 

1  2.0000 

73.5771 

55.5280 

40.0481 

27.9432 

6.0000 

19.0003 

7.0000 

12.6493 

8.0000 

8.2712 

9.0000 

5J238 

3.3786 

13099 

1  15.0000 

.2905 

Before  proceeding  to  the  Hypergeometric  assessment,  it  is  pertinent  to  point 
out  that  sampling  termination  impacts  both  the  OC  curve  and  the  ASN  plot  for  single  sampling. 
To  illustrate  this,  suppose  in  the  previous  example  that  sampling  terminates  if  two  defectives 
have  accrued  at  any  point  in  the  sampling  of  50.  Further,  if  zero  defectives  have  occurred  after 
the  49th  unit,  the  50A  unit  is  not  sampled.  Under  this  scenario,  the  single  sampling  plan 
becomes  the  multiple  sampling  plan  tabularized  in  Ihble  2.  By  exercising  Option  5  of  LAVAS’s 
menu,  the  output  shown  as  Figures  7  and  8  can  be  obtained.  A  detailed  disc^ion  of  the  use 
and  opmtion  of  Option  S  will  be  provided  in  a  following  section.  This  discussion  of  sample 
termination  is  presented  here  to  emphasize  that  if  the  assumptions  and  conditions  imposed  by 
single  sampling  are  modified  in  anyway,  the  resulting  risks  and  expected  sample  size  are  also 
altered  and  require  evaluation. 
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Figure  8<  Samj^ingTermimtionASNPIot 

Upon  comparing  Figure  6  and  Figure  7,  it  should  be  noted  that  the  proba¬ 
bility  of  acceptance  differs  for  specific  values  of  percent  defective  and  that  the  shi^  of  the 
curve  differs  for  percent  defective  values  less  than  or  equal  to  4  percent  Finally,  the  ASN  plot. 
Figure  8,  will  continue  the  exhibited  decay  until  it  reaches  a  percent  defective  of  100  percent 
At  a  percent  defective  of  100  percent,  the  plot  stops  at  an  ASN  of  two. 

b.  Hypergeometric  EvaluiUion  of  Single  Sampling 

U  the  response  to  the  prompt  concerning  a  finite  lot  size  is  ‘YES’,  sampling 
from  a  finite  population  containing  M  units  of  one  classification  and  N-M  units  of  another  clas¬ 
sification  is  assumed,  whae  N  represents  the  lot’s  size.  The  conditions  are  such  that  the  Hyper¬ 
geometric  distribution  is  the  iqiprcqiriate  vehicle  for  calculating  probabilities  of  specific  events. 
Heretofore,  without  the  aid  of  computing  equipment,  analysts  have  resorted  to  iqiproximation 
techniques,  such  as  the  Poisson  an^or  Normal,  to  avoid  the  calculation  burden  of  the  Hypergeo¬ 
metric.  While  expedient  and  labor  saving  for  the  analyst,  the  results  are  that  iq)proximations  of 
risk  and  expected  samide  size  have  been  ^pptied  to  multi-^nillion  dollar  tests.  The  cost  of  error 
resulting  from  approximations  need  not  be  incurred,  henceforth. 


To  illustrate  the  output  features,  a  sample  size  of  SO,  an  acceptance  number 
of  1,  and  a  finite  lot  size  of  144  were  entered  as  responses  to  the  sequential  prompts.  Paralleling 
the  Binomial  output,  Figure  9  provides  the  operating  characteristic  curve  and  Table  3  provides 
the  optional  output  of  number  of  defectives  per  lot  versus  the  probability  of  acceptance.  Since 
the  number  of  defectives  per  lot  is  a  finite,  integer,  random  variable,  percent  defective  is  also  a 
finite  random  variable  (i.e.,  number  of  defectives  per  lot  times  100  divided  by  lot  size).  The 
instigation  of  sampling  termination  will  alter  the  OC  curve  and  the  ASN  plot  in  this  application 
as  it  did  in  the  Binomial  evaluation  discussed  in  the  previous  section.  Option  S  of  the  main  pro¬ 
gram’s  menu  (Fig.  4)  can  be  used  to  evaluate  this  scenario,  as  required  for  either  the  Binomial  or 
the  Hypergeometric  case. 


Figure  9.  Hypergeanetric  OC  Curve  for  n-50,  c=l,  and  Lot  Size=144 
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Table  3.  Tabular  OC  Curve  Points  for  nsSO,  c=l,  and  Lot  Sizesl44 


Operating  Characteristic  (OQ  Curve 

Single  Sampling  Plan:  ns50  and  c^l 
(Hypergeometiic  Distribution  Probabilities) 

Defectives  per  Lot 

Probalnlity  of  Accqnance 

0 

100.0000 

1 

100.0000 

2 

88.1022 

3 

72.3501 

4 

56.7657 

5 

43.1107 

6 

31.9362 

7 

23.1910 

8 

16.5629 

9 

11.6614 

10 

8.1079 

11 

53738 

12 

3.7924 

13 

2.5557 

14 

1.7068 

15 

1.1302 

20 

.1279 

24 

.0196 

30 

mmmmismmm 

35 

.0001  1 

36 

Z  Plan  Derivation  for  Given  AQL,  LTPD,  ALPHA,  and  BETA 

This  design  option  assists  in  the  derivation  of  single  sampling  plans  which  pass, 
or  nearly  pass,  through  two  points  on  the  OC  curve.  The  two  points  are  (AQL,  1-ALPHA)  and 
(LTPD,  BETA).  The  use  of  this  symbolism  is  in  accordance  with  that  most  commonly  encoun¬ 
tered  in  statistical  quality  control  literature  whore  AQL  is  considered  to  be  an  acceptable  quality 
level,  LTPD  is  an  unacceptable  quality  level,  ALPHA  is  the  producer’s  risk  and  BETA  is  Ae 
consumer’s  risk.  In  reality,  any  two  desired  points  on  the  OC  curve  can  be  used  equally  effec¬ 
tively  as  design  goals. 

In  its  current  software  configuration,  this  option  derives  single  sampling  plans 
whidi  meet  design  specifications  on  risks  by  strict  use  of  die  Binomial  distribution  to  calculate 
event  probabilities.  This  limitation  is  not  considered  to  be  restrictive  since  any  plan  derived  with 
the  Hype^eometric  distribution  would  be  valid  only  for  the  imposed  lot  size,  '^e  approach 
utilizing  the  Binomial  distribution  will  enhance  the  precision  of  the  design  process  over  that 
achieved  by  using  a  Poisson  or  Poisson/Normal  approximation  approach. 
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Upon  entering  a  2  for  the  prompt  illustrated  in  Figure  5,  the  user  will  be  sequen¬ 
tially  prompted  for  AQL,  LT7D,  ALPHA,  and  BETA.  The  inputting  of  these  four  percentages 
establishes  the  design  goals  of  the  plan.  It  is  very  improbable,  due  to  the  nature  of  the  disaete 
random  variables  in  this  analysis,  that  a  single  sampling  plan  can  be  found  which  passes,  exactly, 
through  the  two  design  goal  points  on  the  OC  curve.  Therefore,  the  next  two  prompts  will 
request  tolerance  limits  on  the  producer’s  risk  and  on  the  consumer’s  risk.  The  tolerance  limits 
need  not  be  equal  to  each  other,  and  they  can  be  zero  if  no  tolerances  exist.  In  an  effort  to 
address  economical  considerations,  a  prompt  has  been  included  to  allow  the  user  to  place  an 
upper  limit  on  the  sample  size.  If  no  upper  limit  is  placed  on  the  sample  size,  the  software  sets 
the  limit  equal  to  one-million.  Additionally,  the  user  has  the  option  to  limit  the  size  of  the 
acceptance  number.  After  plans  are  analyzed  for  a  specific  acceptance  number,  the  user  will  be 
prompted  concerning  the  d^ire  to  inaease  the  acceptance  numl^r  by  one  and  to  continue  the 
search. 


To  illustrate  the  use  of  the  software,  the  data  shown  in  Table  4  was  used  to 
respond  to  the  serial  prompts.  Additionally,  the  search  was  limited  to  acceptance  numbers  less 
than  or  equal  to  five.  In  this  application,  27  single  sampling  plans  were  found  which  met  the 
design  specifications  and  constraints.  These  plans  are  enumerated  in  Table  5. 

Table  4.  Option  2  Prompt  Response  Summary 


Prompt  Request 

Response 

AQL 

2 

LTPD 

10 

ALPHA 

2 

BEIA 

10 

ALPHA  Tolerance 

1 

BEIA  Tolerance 

5 

Maximum  Sample  Size 

144 
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Table  5.  Optional  Feasible  Single  Sampling  Plans 


Optional  Single  Sampling  Plans  which 

Producer’s  Risk  =  2.00  ±  1.00% 

Consumer’s  Risk  s  10.00  ±  5.00% 

ForAQL  =  100%andLTPD  »  10.00% 

(Bitumial  Probabilities) 

Accqitance  Number 

Producer’s  Risk 

Consumer’s  Risk 

72 

4 

1.48% 

14.17% 

73 

4 

1.56% 

13.37% 

74 

4 

1.65% 

12.62% 

75 

4 

1.74% 

11.89% 

76 

4 

1.83% 

11.21% 

77 

4 

1.93% 

10.56% 

78 

4 

2.03% 

79 

4 

2.13% 

9.35% 

80 

4 

l24^ 

8.80% 

81 

4 

2.34% 

8.27% 

82 

4 

I46S 

TJTflS 

83 

4 

2.57% 

7.30% 

84 

4 

2.69% 

6.85% 

8^ 

4 

2.81% 

6!4355 

86 

4 

2.94% 

6.03% 

91 

5 

1.01% 

9.76% 

92 

5 

1.06% 

9.22% 

93 

5 

Tn?? 

8.70% 

94 

5 

1.17% 

8.21% 

95 

5 

1.23% 

7.75% 

96 

5 

1.29% 

731% 

97 

1.35% 

6.89% 

96 

5 

r4l5E 

6.49% 

99 

5 

1.48% 

6.12% 

100 

5 

1.55% 

5.76% 

101 

5 

1.62% 

5.42% 

102 

5 

1.69% 

5.10% 

If  no  plans  are  found  which  meet  the  design  specifications,  the  user  will  be 
prompted  to  that  effect  and  allowed  to  loosen  the  design  tolerances  and  rerun  the  search  proce¬ 
dure.  If  loosening  the  design  tolerances  is  infeasible,  the  user  may  exit  the  design  routine. 

3.  Plan  Derivation  for  a  Single  Point  of  Control  at  the  Indifference  Quality 
(Poisson  Based) 

Indifference  quality,  sometimes  called  the  point  of  control,  is  the  fraction  defec¬ 
tive  at  which  the  probalrility  of  acceptance  equals  50  percent  Conversely,  the  probability  of  re¬ 
jection  equals  50  percent,  also.  Sin^e  sample  lot  acceptance  plans  can  be  derived  for  this  situa¬ 
tion  by  simply  calculating  the  sample  size  as 

n  «  (C  +  .067)/p(50%),  (3) 
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where  C  is  the  acceptance  number  and  p(50  percent)  is  the  fraction  defective  at  which  the  proba¬ 
bility  of  acceptance  is  to  be  50  percent.  This  relationship  is  aedited  to  G.A.  Cambell  and  is 
based  on  a  Poisson  distribution  [2]. 

To  access  this  segment  of  the  software,  the  user  must  enter  a  3  for  the  prompt 
shown  in  Figure  5.  After  doing  so,  the  user  will  be  prompted  for  the  percent  defective  which  is 
to  possess  a  probability  of  acceptance  of  50  percent.  This  is  the  only  input  required.  The  algo- 
ritto  calculates  sample  size  via  Equation  (3),  integerizes  the  results,  and  prints  the  results  for 
acceptance  numbers  ranging  from  0  to  50.  Since  the  resulting  plans  are  iKised  on  a  Poisson 
Assumption,  the  user  should  exercise  Option  1  (Fig.  5),  to  obtain  an  exact  risk  evaluation  for  the 
use  environment  anticipated,  be  it  Binomial  or  Hypergeometric.  To  illustrate  the  aj^lication  of 
this  option,  an  indifference  quality  of  10  percent  was  entered.  The  resulting  plans  are  tabula- 
rized  in  Table  6. 

Table  6.  Single  Sampling  Plans  for  an  Indifference  Quality  of  10  percent 


AccqiUnce  Number 

Sample  Size 

AccqjUnce  Number 

SamNeSize 

Accqitasce  Number 

7 

0 

177 

17 

347 

34 

17 

1 

187 

18 

357 

35 

27 

2 

197 

19 

367 

36 

37 

3 

207 

20 

377 

37 

47 

4 

217 

21 

387 

38 

57 

5 

227 

22 

397 

39 

67 

6 

237 

23 

407 

40 

77 

7 

247 

24 

417 

41 

87 

8 

257 

25 

427 

42 

97 

9 

267 

26 

437 

43 

107 

10 

277 

27 

447 

44 

117 

11 

287 

28 

457 

45 

127 

12 

297 

29 

467 

46 

137 

13 

307 

30 

477 

47 

147 

14 

317 

31 

487 

48 

157 

15 

327 

32 

497 

49 

167 

16 

337 

33 

507 

50 

Any  of  these  plans  cam  be  evituated  by  cxeidsing  Option#! 


4.  Plan  Derivation  Using  J.M.  Cameron’s  Poisson  Approximation  of  the  OC  Curve 

As  used  within  this  computer  program,  Mr.  J.M.  Cameron’s  original  intent  has 
been  somewhat  modified.  Reference  2  provides  a  detailed  discussion  of  Mr.  Cameron’s 
iqpproach  to  designing  single  sampling  plans  via  Poisson  approximations  and  two  desired  points 
firom  the  OC  curve.  As  applied  herein,  Mr.  Cameron’s  Industrial  Quality  Control,  Vol.  9,  July 
1952  table  is  utilized  to  provide  the  user  with  a  single  point  of  control  at  specific  points  on  the 
OC  curve.  Namely,  the  user  can  stipulate  the  probability  of  acceptance  to  be  1, 5, 10, 50, 90, 95, 
or  99  percent  for  any  spedfied  percent  defective.  The  resulting  plans  will  approximate,  via  the 
Poisson,  this  single  point  of  control  for  acceptance  numbers  ranging  from  0  to  50.  Exact  risk 
assessments,  via  the  Binomial  or  Hypergeometric  are  available  through  Option  1  of  the  menu 
shown  in  Figure  5. 
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Table  7  contains  the  output  generated  by  entering  a  point  of  control  of  2  percent 
and  a  probability  of  acceptance  of  99  percent.  Table  8  provides  similar  output  derived  from  a 
point  of  control  of  12  percent  and  a  probability  of  acceptance  of  5  percent. 


Table  7.  Single  Sampling  Plans  for  Point  of  Control  Equal  2  Percent 
and  Probability  of  Acceptance  Equal  99  Percent 


Single  Sample  Sampling  Plans 
J.  M.  Cameron’s  Poisson  Approximations 
where  the  Probability  of  AccqAance  is  99.00% 
when  the  Pacent  Defective  is  2.00% 


Sample  Size 

Acceptance 

Number 

Percent  Defective  Specifications  for  which  the  Poisson 
Approximation  of  the  Probability  of  Accqitance  is 

mm 

95% 

90% 

50% 

10% 

5% 

1% 

1 

0 

5.10 

10.50 

69.30 

230.30 

299.60 

460.50 

8 

1 

1.86 

4.44 

6.65 

20.98 

48.63 

59J0 

82.96 

22 

2 

1.98 

3.72 

5.01 

1Z15 

24.19 

28.62 

38.21 

42 

3 

1.96 

3.25 

4.15 

8.74 

15.91 

18.46 

23.92 

64 

4 

2.00 

3.08 

7.30 

1Z49 

14.30 

18.13 

90 

5 

1.98 

Z90 

3.50 

6.30 

10.31 

11.68 

14.56 

117 

6 

1.99 

Z81 

3.33 

5.70 

9.00 

10.12 

12.45 

146 

7 

1.99 

Z73 

3.19 

i.25 

8.06 

9.01 

10.96 

176 

8 

1.99 

Z67 

3.09 

4.93 

7.38 

8.20 

9.89 

207 

9 

ZOO 

Z62 

3.01 

4.67 

6.86 

7.59 

9.07 

239 

10 

ZOO 

Z58 

2.94 

4.46 

IIIq;^ 

8.43 

272 

11 

2.55 

2.88 

4.29 

6.10 

6.69 

Kil 

aS 

12 

ZOO 

mM.fm 

2.83 

^£3 

6.37 

7.48 

340 

13 

1.99 

Z49 

2.79 

4.02 

5.58 

7.10 

374 

14 

ZOO 

Z47 

2.75 

3.92 

5.38 

5.85 

6.80 

410 

15 

ZOO 

Z45 

2.72 

3.82 

5.19 

5.63 

6.52 

445 

16 

ZOO 

Z43 

Z69 

3.75 

5.46 

6.30 

481 

17 

ZOO 

Z42 

Z67 

367 

4.91 

6.09 

518 

18 

ZOO 

Z40 

Z64 

3.60 

4.78 

5.15 

5.90 

555 

19 

ZOO 

Z39 

Z62 

3.54 

4.67 

5.74 

592 

20 

zoo 

Z38 

Z60 

3.49 

4.57 

4.91 

5.59 

629 

21 

ZOO 

Z37 

mM.im 

3.44 

4.48 

4.81 

5.46 

667 

22 

zoo 

Z36 

Z56 

3.40 

4.40 

4.71 

5.34 

705 

23 

2.00 

l^i 

3.36 

432 

4.62 

5.23 

743 

24 

zoo 

msm 

Z54 

3.32 

4.25 

782 

25 

zoo 

Z33 

Z52 

3.28 

4.18 

4.46 

977 

30 

zoo 

Z30 

2.47 

3.14 

Z90 

4.16 

1177 

35 

2.00 

Z27 

Z43 

3.73 

3.94 

4.37 

1380 

40 

zoo 

Z25 

Z39 

Z95 

3.77 

4.16 

1586 

45 

zoo 

Z23 

2.37 

Z88 

3.46 

3.64 

3.99 

1794 

50 

zoo 

Z22 

Z35 

Z82 

3.36 

3.53 

3.85 

Any  of  these  plans  can  be  evaluated  by  exercising  Optitm  #1 
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'Hible  8.  Single  Sampling  Plans  for  Point  of  Control  Equal  12  Percent 
and  Probability  of  Acceptance  Equal  5  Percent 


Single  Sample  Sampling  Plans 
J.  M.  Cameron’s  Poisson  Approximations 
where  the  ProbabiUty  of  Acceptance  is  S.00% 
when  the  Percent  Defective  is  12.00% 


Sample  Size 

Acceptance 

Number 

Percent  Defective  Specifications  for  which  the  Poisson 
Af^oximation  of  the  Probability  of  Accqitance  is 

99% 

90% 

JSSM 

10% 

(^3 

1% 

25 

0 

.04 

.20 

.42 

2.77 

9.21 

11.98 

18.42 

40 

1 

.37 

.89 

1.33 

4.20 

9.73 

11.86 

16.60 

53 

2 

.82 

1.54 

2.08 

5.05 

10.04 

11.88 

15.86 

65 

3 

1.27 

2.10 

2.68 

5.65 

10.28 

11.93 

15.45 

77 

4 

1.66 

2.56 

3.16 

6.07 

10.38 

11.89 

15.07 

88 

5 

2.03 

2.97 

338 

6.44 

10.54 

11.95 

14.90 

99 

6 

235 

3.32 

3.93 

6.74 

10.64 

11.96 

14.72 

110 

7 

2.64 

3.62 

4.23 

6.97 

10.70 

11.95 

1435 

121 

8 

2.90 

3.88 

4.49 

7.16 

10.74 

11.93 

1438 

131 

9 

3.15 

4.14 

4.75 

7.38 

10.84 

11.99 

1434 

142 

10 

336 

434 

4.94 

7.51 

10.85 

11.95 

14.19 

152 

11 

337 

436 

5.15 

7.68 

10.92 

11.98 

14.14 

163 

12 

3.74 

4.72 

7.77 

10.91 

11.93 

14.00 

173 

13 

3.92 

4.89 

5.47 

10.96 

11.95 

13.95 

183 

14 

4.09 

S.OS 

5.63 

8.02 

11.00 

11.96 

13.90 

193 

15 

4.24 

5.20 

5.77 

KSSISi 

(03 

1336 

203 

16 

438 

5.34 

8.21 

11.97 

1331 

213 

17 

431 

5.46 

6.02 

8.29 

(03 

11.97 

13.76 

223 

18 

4.64 

538 

6.13 

%.yi 

11.10 

11.97 

13.71 

233 

19 

4.76 

5.69 

6.23 

8.44 

11.12 

11.97 

13.67 

243 

20 

4.87 

5.79 

6.33 

8.51 

11.13 

11.96 

13.62 

253 

21 

4.97 

5  89 

6.42 

8.56 

11.14 

11.95 

1338 

262 

22 

5.09 

6.00 

6.53 

8.65 

11.19 

11.99 

1339 

272 

23 

5.18 

6.08 

6.61 

8.70 

(O^ 

11.98 

1334 

282 

24 

537 

6.16 

6.68 

msm 

(03 

11.97 

1330 

291 

25 

537 

6.26 

6.78 

8.82 

11.24 

12.00 

1331 

340 

30 

5.74 

7.09 

9.02 

8.33 

11.97 

1335 

387 

35 

6.06 

6.91 

738 

9.22 

11.34 

11.99 

13.28 

434 

40 

636 

7.16 

7.61 

937 

11.38 

12.00 

1331 

481 

45 

639 

737 

7.81 

9.49 

11.14 

11.99 

13.15 

528 

SO 

6.79 

735 

7.97 

9.60 

11.43 

11.99 

13.08 

Any  of  these  plans  can  be  evatoated  by  exetdang  Option#! 


5.  Plan  Derivation  Ma  MIL-STD-IOSD  Search  for  Specified  AQL,  LTPD, 

ALPHA,  and  BETA 

The  last  single  sampling  option,  (select  code  5  in  Fig.5),  provides  a  risk  assess¬ 
ment  of  the  sampling  plans  contained  in  ^^L-S7D-105D  against  user  specified  risk  thresholds. 
Specifically,  all  feasible  combinations  of  acceptance  numbers  and  sample  sizes  from 
ME^TD-105D’s  Single  Sample  Normal  Inspection,  Reduced  Inspection,  and  lightened 
Inspection  are  considered.  Eadi  possible  plan’s  probability  of  acceptance  is  calculated  for  AQL 
and  LTPD.  The  associated  risks  are  then  compared  to  the  producer’s  and  consumer’s  risk  thresh 
olds.  If  the  calculated  risks  simultaneously  meet  the  specified  thresholds,  the  plan  is  printed  for 
user  consideration.  Otherwise,  the  plan  is  not  printed,  and  the  search  continues.  The  software’s 
logic  flow  enables  the  user  to:  (1)  input  two  desired  points  from  the  OC  curve  (i.  e.,  [AQL, 
1-ALPHA]  and  [LTPD,  BETA]);  (2)  input  acceptable  tolerances  on  the  risks;  (3)  constrain  the 
maximum  sample  size;  and  (4)  choose  either  the  Binomial  or  Hypergeometric  as  a  means  for 
calculating  event  probabilities. 

After  accruing  the  specified  input,  the  examination  of  the  possible 
MIL-STD-IOSD  plans  begins.  If  a  plan  meets  all  design  constraints,  it  is  printed.  Otherwise, 
the  search  continues  until  all  feasible  single  sampling  plans  contained  in  MILr-STD-105D  are 
exhausted.  To  illustrate  the  use  of  this  software  segment,  an  AQL  of  1  percent,  an  LTPD  of  12 
percent,  a  producer’s  risk  of  5  percent,  a  consumer’s  risk  of  25  percent,  5  percent  tolerances  on 
the  risks,  and  a  maximum  sample  size  of  SO  were  entered  in  response  to  the  sequential  prompts. 
The  results  of  the  Binomial  evaluation  are  summarized  in  Tible  9.  Additionally,  the  results  of 
the  Hypergeometric  evaluation  are  summarized  in  Table  10  for  a  lot  size  of  200.  Note  that  the 
risks  for  the  same  plans,  in  the  two  tables,  are  different.  This  is  due  to  the  finite  lot  size 
associated  with  the  Hypergeometric.  The  risks  will  converge  as  the  lot  size  qiproaches  infinity. 

Table  9.  Binomially  Feasible  MIL-51B-10SD  Single  Sampling  Plans 

Optional  Single  Sampling  Plans  Via  MIL-STD-IOSD 
For  AQL  =  1.00%  and  LTPD  =  12.00% 

That  meet  Producer’s  Risk  s  S.OO  ±  5.00% 

And  meet  Consumer’s  Risk  =  25.00  ±  5.00% 

••••Binomial  Probabilities^^^^ 

Maximum  Sample  Size  Constraint:  50 


Sample  AccqXance  Producer’s  Consumer’s 

Size _ Number _ Risk _ Risk 


A  complete  OC  Curve  for  any  of  these  plans  can  be  obtained  by  exercising 
Option  1  of  this  program  segment 


Table  10.  Hypergeometric  Feasible  MIL-STD-105D  Single  Sampling  Plans 


Optional  Single  Sampling  Plans  Via  MUr-STD-lOSD 
For  AQL  *  1.00%  and  LTPD  =  12.00% 

That  meet  Producer’s  Risk  s  5.00  ±  S.00% 

That  meet  Consumer’s  Risk  s  25.00  ±  5.00% 

Lot  size  =  200 

*  •  •  *Hypergeometric  Probabilities*  *  *  * 
Maximum  Sample  Size  Constraint:  50 


Sample 

Size 

Acceptance 

Number 

Producer’s 

Risk 

Consumer’s 

Risk 

20 

1 

.95% 

27.38% 

32 

2 

0.00% 

21.96% 

A  complete  OC  Curve  for  any  of  these  plans  can  be  obtained  by  exercising 
Option  1  of  this  program  segment. 


C  Donbk  Sampling  Design  and  Assessmmt 

Though  conceptually  easy  to  understand,  single  sampling  is  an  expensive  means  of 
accomplishing  acceptance  sampling  to  r :  strol  percent  defective.  A  more  economical  means, 
probabilistically  sp^ddng,  is  available  through  double  sampling.  The  potential  savings  are 
possible  even  when  producer’s  risk  anti  ; .^nsumer’s  risk  are  constrained  to  be  constant  at  the 
levels  incurred  with  single  sampling.  References  1  and  2  provide  comprehensive  discussions  of 
the  advantages  of  double  sampling  over  sin^e  sampling;  Aerefore,  the  reader  can  refer  to  those 
texts  if  further  information  is  desired. 

If  a  2  is  entered  for  the  prompt  shown  in  Figure  4,  the  double  sampling  code  will  be 
loaded  and  executed.  Shown  in  Figure  10  is  a  narrative  which  briefly  describes  the  three  double 
sampling  options  currently  available.  Option  1,  accessed  by  a  select  code  of  1,  provides  a  proba¬ 
bilistic  risk  assessment  of  any  specified  double  samjding  plan  using  either  the  Binomial  or  the 
Hypergeometric  distribution,  depending  upon  the  sampling  constraints. 
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>  Double  Sampling  Plan  Option  Menu  < 


Option  Description  Select  Code 

>  Double  Sample  Operating  Characteristic  Curve  Construction  and 

Risk  Assessment .  1 

>  Double  Sampling  Plan  Derivation,  ^a  Poisson  Approximation 

of  ALPHA  s  5%  and  BETA  s  10%  for  Given  Specifications 
ofAQLandLTPD .  2 

>  Double  Sampling  Plan  Derivation  from  MIL-STD-105D 
Acceptance/Rejection  Numbers  and  all  Stated  Sample  Sizes. 


Tliis  option  provides  a  Binomial  or  Hypergeometric  Assessment  of 
Alpha  and  l^ta  for  Stated  AQL  and  LTPD  values.  The  assessments  are 
limited  to  the  feasible  combinations  of  sample  size  and  accept  reject 


numbers  :q)ecified  in  MIL-STD-IOSD .  3 

>  EXIT  this  Selected  Option  .  4 


ENTER  THE  SELECT  CODE  OF  THE  DESIRED  OPTION. 


Figure  10.  Double  Sanq>Ung  Mem 

Additionally,  this  option  provides  an  ASN  plot  which  is  simply  a  plot  of  the  expected  number 
sampled  to  a  dedsion  to  accept  or  reject  veraus  the  quality  characteristic.  The  provided  ASN 
plot  is  based  on  the  assumption  that  no  sample  termination  is  allowed,  that  is  two  events  are  pos¬ 
sible.  Once  a  dedsion  is  made  after  the  first  sample,  or  the  dedsion  is  made  after  the  second 
sample.  No  dedsions  can  be  made  except  at  these  two  points  in  testing.  If  sample  termination  is 
to  be  allowed  for  economic  and/or  logic  reasons,  the  user  can  evaluate  the  impact  of  this  dq>ar- 
ture,  for  double  sampling  plans  with  combined  sample  sizes  less  than  or  equal  to  SO,  by  using 
Option  5  of  the  main  menu,  (Fig.  4).  This  evaluation  will  take  the  form  of  an  OC  curve  and  an 
ASN  plot  which  take  into  consideration  the  sample  termination  poli^.  Sampling  termination 
basically  transforms  the  double  samjding  plan  into  a  multiple  sampling  plan. 

Option  2  of  the  doulde  sampling  section  provides  an  automation  which  will  assist  in 
the  design  of  double  sampling  plans  in  whidi  the  producer’s  ride  is  5  percent  and  the  consumer’s 
risk  is  10  percent  Hie  two  falcon  defective  values,  corresponding  to  these  two  risk  ^ledfica- 
tions,  are  considered  to  be  variable  usm’  inputs.  It  is  pertinent  to  point  out  that  the  AQL  must  be 
numerically  smaUer  than  the  LTPD.  The  t^gn  algorithm  is  bas^  upon  the  Poisson  aj^oxima- 
tion  jnocetfore  as  identified  by  the  Qiemical  Corps  Engineering  Agency  [6]. 

The  final  double  sampling  qition  provides  an  automation  whidi  seardies  all  feasible 
double  sampling  jdans  contain^  in  MfL-SHVlDSD  for  those  that  satisfy  the  user’s  inputted 
design  spedfications.  In  other  words,  this  portion  of  the  software  combines  MIL-STD-IOSD 
sample  sizes  with  acceptance/rejection  numbers  for  Normal  Inflection,  Reduced  Inspection,  and 
Tightened  Inspection;  calculates  the  producer’s  risk  and  consumer’s  ri^  for  the  inputted  AQL 
and  LTPD;  compares  these  calculated  risks  to  the  user  inputted  target  values  plus  or  minus  the 
tolerances,  and  prints  the  plan  if  the  calculated  risks  are  within  the  tolerance  spedfications.  The 
exhaustive  search  indudes  all  douUe  sampling  plans  contained  in  MIL-STD-IOSD.  A  feasible 
double  sampling  plan  is  one  in  which  the  accepbmee  and  rejection  numbers  are  less  than  the 
corresponding  sample  size. 
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Before  pioceding  to  the  illustration  of  these  three  software  options,  a  word  of  caution 
must  be  given  concerning  double  sampling  plan  specifications.  A  double  sampling  plan  is  speci¬ 
fied  by  six  numbers.  The  first  of  these  numbers  is  the  first  sample’s  size  and  the  second  number 
is  the  acceptance  number  on  the  first  sample.  Often  overlooked  is  the  third  number,  the  rejection 
number  on  the  first  sample.  If  the  first  sample’s  rejection  number  is  not  specified,  it  is 
customary  to  assume  that  it  is  equal  to  the  rejection  number  on  the  second  sample.  The  rejection 
number  on  the  second  sample  must  be  numerically  equal  to  the  acceptance  number  on  the  second 
sample  plus  one.  To  avoid  confusion  and  possible  misunderstanding,  the  best  choice  is  to 
specify  all  six  numbers. 

1.  Double  Sampling  OC  Curve  Construction  and  Risk  Assessment 

Option  1  of  Figure  10  is  the  basic  assessment  algorithm  for  double  sampling  in 
that  it  provides  an  evaluation  of  the  probability  of  acceptance,  OC  curve,  and  an  ASN  evalua¬ 
tion.  If  selected,  the  user  will  be  serially  prompted  for  the  first  sample’s  size,  the  second 
sample’s  size,  the  first  sample’s  acceptance  number,  the  second  sample’s  acceptance  number,  the 
first  sample’s  rejection  number  and  the  second  sample’s  rejection  number.  These  six  inputs 
completely  specify  the  double  sampling  plan.  Attention  is  then  focused  on  the  conditions  under 
whi^  the  sampling  will  be  done  (i.  e.,  from  a  finite  lot  size  or  from  lots  such  that  the  probability 
of  a  defective  is  constant  from  tri^  to  trial). 

Following  the  plan  specification,  the  user  will  be  prompted  to  enter  a  YES  or  a 
NO  concerning  the  existence  of  a  finite  lot  size.  If  the  response  is  NO,  the  Binomial  distribution 
is  assumed  applicable  for  computing  probabilities.  Otherwise,  the  Hypergeometric  is  assumed. 

To  illustrate  the  Binomial  evaluation,  the  data  shown  in  Table  11  was  entered  for  the  serial 
prompts.  When  the  finite  lot  size  prompt  was  displayed,  a  NO  was  entered.  Figure  11  provides  a 
graphical  illustration  of  the  resulting  OC  curve  while  Figure  12  displays  the  plot  of  the  ASN. 

The  ASN  plot  shown  in  Figure  12  is  based  upon  the  assumption  that  no  sample  termination  is 
instigated.  Table  12  provi^  an  itemization  of  the  analysis  findings  for  user  inputted  percent 
defectives.  The  scope  of  coverage  of  this  table  is  left  to  the  user’s  discretion. 

Thble  11.  Double  Sampling  Binomial  Option  Input 


PROMPT 

Fiist  Sample’s  Sze 

12 

Second  Sample’s  Size 

24 

First  Sample’s  Accqjtance  Number 

0 

Second  Sample’s  Acceptance  Number 

3 

First  Samfde’s  Rejection  Number 

3 

Second  Samf^e’s  Rejection  Number 

4 

24 
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Figure  21.  Dotdfle  SampUng  Binomial  OC  Curve 
Tible  12.  OC  Curve  and  ASN  Points  Versus  Po’oent  Defective  For  Double  Samiding  (Binomial) 


Risk  Evahudon  for  the  Double  SuxqidiDg  Plan 
First  Sanqrfe:  nsl2  Acoqa  on  0,  Rqect  on  2  Second  Sanqde:  0*24  AccqS  on  3,  Reject  on  4 
(Binomial  Distribution  Probabilities) 


First  Saoqile  Risks 


RqectKm 

ftobdxlity 


Percent 

Defwtive 


0.0000 


2.0000 


3.0000 


4.0000 


6.0000 


7.0000 


8.0000 


9.0000 


10.0000 


11. 


12.0000 


13.0000 


Acceptance 

ProlMbility 

Contiime 

Probability 

0.0000 

88.6385 

10.7441 

78.471'^ 

19.2176 

[mmsm 

\mmsm 

30.6355 

1  54.0360  1 

34.1280 

1  ■QSSSI  1 

37.8087 

1  36.7666 

383652 

38.2718 

37.6573 

1  24.6990  j 

36.6323 

1— .iur.«a^ 

35.2916 

33.7160 

9 


8.0935 


11. 


.3317 


24.8682 


29.4806 


34.0998 


38.6687 


43.1412 


47.4808 


Plan  Risks 

Accqrtance 

Rqection 

Probability 

Probability 

100.0000 

0.0000 

993640 

.6360 

23381 

943558 

5.7442 

89.7838 

10.2162 

843071 

15.7929 

223181 

70.8113 

29.1887 

633993 

36.4007 

56.4187 

43.5813  1 

49.4920 

^.5080 

42.9845 

57.0155 

37.0059 

639941 

31.6163 

683837  1 

Sample 
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l^ble  12.  OC  Curve  and  ASN  Points  Versus  Percent  Defective  for  Double  Sampling  (Binomial) 

(continued) 


Risk  Evaluation  for  the  Double  Sampling  Plan 
t  Sample:  n=12  Accept  on  0,  Rqect  on  2  Second  Sample:  ns24  Accept  on  3,  Reject  < 
(Binomial  Distribution  Probabilities) 


First  Sample  Risks 


Continue 

Probability 


31.9737 


30.1218 


28.2081 


26.2718 


24.3448 


22.4S28 


Rejection 

Prob^ility 

Acceptance 

Prob^ility 

55.6540 

22.6531 

59.4509 

19.0365 

63.0392 

15.9402 

66.4132 

13.3109 

11.0932 

9.2328 


8S 


6.3838 


5.3076 


4.4138 


3.6719 


3.0560 


Plan  Risks 


Rqection 

Probability 


73.1644 


77.3469 


80.9635 


84.0598 


86.6891 


88. 


.7672 


92.3215 


93.6162 


94.6924 


95.5862 


Average 

Samide 

Number 


96.3281 


96.9440 


97.4558 


97.8815 


98.2359 


98.5313 


98.7779 


98.9638 


99.1559 


99.2998 


99.4200 


99.5205 


99.6044 


99.6744 


99.7327 


99.7812 


99.9233 


Figure  12.  Double  Samplmg  Binomial,  No  Sampling  Termination,  ASN  Plot 

To  illustrate  the  Hypergeometiic  evaluation,  a  YES  was  entered  for  the  finite 
lot  size  prompt  The  preceding  input  prompts  were  repeated  from  the  Binomial  illustration. 
Following  the  finite  lot  prompt  the  user  is  prompted  to  enter  the  lot  size.  One-hundred  forty- 
four  was  entered  in  this  illustration  example.  Figures  13  and  14  provide  schematics  of  the 
resulting  OC  curve  and  ASN  plot  respectively.  Table  13  contains  selected  points  on  die  OC 
curve  and  the  plot  Agairt  the  number  of  points  induded  in  this  table  is  the  user’s  discretion. 


m 
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Table  13.  OC  Curve  and  ASN  Points  Versus  Percent  Defective  for  Double  Sampling 

(Hypergeometric) 


Risk  Evaluation  for  the  Double  Sampling  Plan 

First  Sample:  nal2  AccqM  on  0,  Rqect  on  2  Second  Sample:  ns24  Accept  on  3,  Reject  on  4 

Lot  Size  s  144  (Hypergeometric  Distribution  Probabilities) 

Defective 

Per  Lot 

1  First  Sample  Risks 

1  Plan  Risks 

Avera^ 

Sam{4e 

Number 

Acceptance 

Prob^ility 

Continue 

Probability 

Rejection 

Probability 

Acceptance 

Prob^ility 

0 

100.0000 

0.0000 

00000 

100.0000 

HESSJBI 

1 

91.6667 

8.3333 

100.0000 

14.00 

2 

83.9744 

15.3846 

.6410 

99.3590 

.6410 

15.69 

3 

76.8779 

21.2893 

1.8328 

98.1672 

1.8328 

17.11 

4 

70.3351 

26.1712 

3.4937 

96.3650 

3.6350 

18.28 

5 

64.3064 

30.1436 

5.5500 

93.8782 

19.23 

6 

58.7548 

90.6770 

19.99 

8 

48.9468 

37.5911 

13.4621 

82.3030 

10 

40.6610 

39.6693 

19.6697 

72.0200 

27.9600 

12 

33.6796 

40.0815 

26.2389 

60.9395 

39.0605 

21.62 

14 

27.8131 

32.9213 

50.0868 

49.9132 

21.42 

16 

22.8973 

37.5751 

39.5276 

40.1896 

59.8104 

21.02 

18 

35.2925 

45.9175 

31.6419 

20.47 

20 

15.3684 

32.6409 

51.9906 

24.5619 

19.83 

24 

10.1746 

26.8834 

6Z9420 

14.4320 

18.45 

25 

■TMMI 

6^.4063 

12.6036 

18.10 

30 

5.3301 

18.6296 

76.0402 

6.4119 

93.5881 

16.47 

35 

3.0242 

12.9607 

84.0151 

33138 

96.6862 

15.11 

40 

1.6682 

8.6102 

89.7216 

1.7349 

14.07 

45 

.8921 

5.4741 

93.6338 

.9053 

99.0947 

13.31 

50 

.4609 

3J315 

96.2076 

.4631 

99.5369 

12.80 

60 

.1090 

1.0755 

98.8154 

.1091 

99.8909 

12.26 

70 

.0212 

.2824 

99.6965 

.0212 

99.9788 

12.07 

75 

.0085 

.1320 

99.8595 

99.9915 

12.03 

80 

.0032 

.0574 

99.9394 

.0032 

99.9968 

12.01 

100 

.0007 

99.9992 

100.0000 

12.00 

In  the  discussion  of  single  sampling,  the  instigation  of  sample  termination  was 
discussed  for  the  Binomial  case.  To  illustrate  the  effect  of  sample  termination  in  the  Hypergeo¬ 
metric  rase,  the  previous  double  sampling  plan  was  modified  to  reflect  the  effect  of  sample  ter¬ 
mination.  The  resulting  multiple  sampling  plan  is  shown  in  Thble  14.  Loading  Option  5  of  the 
Main  Menu  (Fig.  4),  and  entering  the  plan  shown  in  Table  14,  resulted  in  the  OC  curve  and  ASN 
plot  shown  herein  as  Figure  15  and  Figure  16,  respectively.  For  comparison  purposes.  Table  IS 
was  printed  with  common  defectives  per  lot.  Note  that  no  significant  differences  exist  between 
the  probabilities  of  acceptance  for  specific  defectives  per  lot;  however  economies  of  expected 
sampled  units  are  accrued.  These  i^erences  are  valid  only  for  lot  sizes  of  144. 
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Table  14.  Multiple  Sampling  Plan  Resulting  from  Sample  Tennination  of  Double  Sampling  Plan 
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FigurelS.  MuUifUeSatiqflmgVutDoiAle Sample widtSan^leTerminatum,OC Curve 


4 
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Figure  16.  Multiple  Sampling  Via  Double  Sample  with  Samjde  Termination  Average  Sample 

Number  PUa 


Table  15.  OC  Curve  and  ASN  Points  from  Multiple  Sampling  Via  Double  Sample  with  Sample 

Termination 
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2.  Double  Sampling  Plan  Derivation  Via  Poisson  Approximation  of  ALPHA^S 

Percent  and  BETA=10  Percent  for  given  Specifications  of  AQl.  and  LTPD 

This  option  provides  the  capability  to  derive  double  sampling  plans  for  specified 
values  of  AQL  and  LTPD  in  which  the  ALPHA  is  5  percent  and  BETA  is  10  percent.  Addition¬ 
ally,  two  types  of  double  sampling  plans  are  considered,  those  in  which  the  first  sample  is  equal 
in  size  to  ^e  second  sample,  and  those  in  which  the  second  sample  is  twice  the  first  sample’s 
size.  The  design  algorithm  is  based  on  a  Poisson  approximation  technique,  as  identified  by  the 
Chemical  Corps  Engineering  Agency,  [6]. 

The  procedure  for  using  this  option  is  straightforward.  A  2  is  entered  for  the 
prompt  shown  in  Figure  10  to  access  the  software.  If  it  is  desired  to  have  the  second  sample’s 
size  to  be  twice  the  first  sample’s  size,  a  1  should  be  entered  for  the  prompt  requesting  the  selec¬ 
tion.  The  only  other  two  user  inputs  are  the  numeric  values  of  AQL  and  LTPD  which  will  be 
entered  via  prompts  and  must  be  stated  as  percents.  To  obtain  an  output  for  illustration,  an  AQL 
of  2  percent  and  an  LTPD  of  8  percent  were  entered.  Table  16  provides  a  copy  of  the  resulting 
output  In  this  case,  32  double  sampling  plans  are  itemized  which  aj^roximate  the  design  speci¬ 
fications.  Plan  number  13  is  very  cl(»e  to  the  desired  risk  values.  To  implement  the  plan,  one 
would  draw  a  sample  of  49  units.  If  no  defectives  are  found  in  these  units,  the  lot  is  accepted 
with  no  further  sampling.  If  six  defectives  are  found,  the  lot  is  rejected  with  no  further  sam¬ 
pling.  Otherwise,  a  second  sample,  consisting  of  98  units  must  be  drawn.  If  the  cumulative 
number  of  defectives,  from  both  samples,  is  less  than  six,  the  lot  is  accepted.  If  this  cumulative 
number  is  six  or  more,  the  lot  is  rejected.  The  footnote  at  the  bottom  of  the  table  is  printed  to 
remind  the  user  that  a  Binomial  and/or  a  Hypergeometric  risk  as.'sessment  is  available  for  any 
plan  selected  from  the  table. 

Table  16.  Poisson  Approximated  Double  Sampling  Plans  in  which  the  Second  Sample  is  Twice 

the  First 


Plan  Option 
Number 

Sampling  Plan  Specification 

Percent  Defective  at  which  the 
P(Acceptance)  is 
^jproximately  Equal 

Average 

Sample 

Number 

Pa=95% 

Sample  Size 

First 

Sample 

Second 

Sample 

First 

Sample 

Second 

Sample 

95% 

50% 

10% 

1 

9 

18 

0 

1 

9.3333 

25.7778 

11.46 

2 

30 

60 

1 

J333 

8.0000 

38.19 

3 

16 

32 

miK] 

2 

6.6875 

15.1250 

24.18 

4 

31 

62 

0 

2 

.9677 

3.4516 

8.0000 

46.84 

5 

31 

62 

imiim 

3 

2.0000 

5.8065 

12.5484 

38.38 

6 

49 

98 

m^iEi 

3 

1.2245 

3.6735 

8.0000 

7 

25 

50 

mBsi 

3 

5.4000 

10.5600 

44.28  1 

8 

34 

68 

0 

3 

1.4412 

3.9706 

9 

39 

78 

0 

4 

2.0000 

5.0513 

10.0513 

53.00 

10 

50 

100 

4 

1.5400 

3.9400 

67.95 

11 

35 

70 

IHUKl 

4 

2.0000 

4.6857 

8.3714 

69.48 

12 

37 

74 

0 

4 

1.8378 

4.4324 

8.0000 

73.45 

13 

49 

98 

5 

4.4490 

8.2041 

73.40 

14 

51 

102 

0 

5 

1.8824 

4.2745 

8.0000 

76.40 

15 

59 

118 

6 

2.0000 

4.1356 

7.0678 

97.11 

16 

53 

106 

6 

2.1887 

8.0000 

87.24 
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Table  16.  Poisson  Approximated  Double  Sampling  Plans  in  which  the  Second  Sample  is  ice 

the  First  (continued) 


Samfding  Plan  Specification 

Percent  Defective  at  which  the 
P(Accq)tance)  is 
Approximately  Equal 

Average 

Sample 

Sample  Size 

AccqjtanceOn 

Plan  Option 
Number 

First 

Sample 

Second 

Sample 

First 

Sample 

Second 

Sample 

95% 

50% 

10% 

Number 

Pa=95% 

17 

85 

170 

0 

8 

2.0000 

3.8588 

6.4353 

125.46 

18 

69 

138 

0 

8 

2.4348 

4.7536 

8.0000 

101.84 

19 

114 

228 

0 

10 

2.0000 

3.6228 

5.8947 

158.23 

20 

85 

170 

0 

10 

2.6706 

4.8588 

8.0000 

117.98 

21 

124 

248 

11 

3.5161 

5.5000 

182.03 

22 

86 

172 

^HIH3 

11 

2.8605 

5.0698 

126.25 

23 

154 

308 

13 

2.0000 

3.3831 

5.2273  1 

214.68 

24 

101 

202 

0 

13 

3.0369 

5.1584 

140.79 

25 

165 

330 

0 

14 

2.0000 

3.2727 

4.9152 

242.88 

26 

102 

204 

umiim 

14 

3.2255 

5.2941 

8.0000 

150.14 

27 

171 

342 

HUD 

15 

2.0000 

3.1579 

4.4152 

322.85 

28 

95 

190 

0 

15 

3.5895 

5.6842 

179.36 

29 

238 

476 

0 

20 

2.9496 

3.9286 

482.90 

30 

117 

234 

0 

20 

4.0598 

6.0000 

8.0000 

237.39 

31 

373 

746 

0 

30 

2.0000 

2.7641 

3.4745 

831.79 

32 

163 

326 

0 

30 

4.5706 

6.3252 

363.49 

Exact  risk  assessments  are  available  for  any  selected  plan  by  exercising  selection  number  1  of  the  Double  Sam¬ 
pling  Menu. 

If  it  is  desired  that  both  sample  sizes  be  equal,  a  2  should  be  entered  after  the 
prompt  requesting  the  decision.  The  AQL  and  LTPD  are  entered  in  the  same  manner  as  dis¬ 
cussed  above.  Table  17  was  obtained  by  entering  an  AQL  of  2  percent  and  an  LTPD  of  8  per¬ 
cent.  In  this  case,  34  plans  are  provided  for  the  user’s  consideration.  These  plans  ^iproximate 
the  design  risk  specifications  and  possess  equal  sample  sizes  for  both  samples. 


Table  17.  Poisson  Approximated  Double  Sampling  Plans  in  which  the  First  and  Second 

Samples  are  Equal 


Plan  Option 
Number 


Sampling  Plan  Specihcation 


Sample  Size  I  Accq>tance  On 


Percent  Defective  at  which  the 
P(Accep(ance)  is 
Approximately  Equal 


First  I  Second 


Second 


Sample  I  Sample  I  Sample  i  Sample 


95% 


10% 


22.7273 


8. 


14.5185 


8. 


13.4545 


8.0000 


Average 

Sample 

Number 

Pa«95% 


2.2000 


2.0000 


2.3562 


2.0000 


2.4713 


2.0000 


2.5686 


2.0000 


2.7885 


2.0000 


3.0667 


2.0000 


3.2520 


2.0000 


4.9216 


3.6507 


5.1250 


3.4595 


5.3333 


3.3483 


5.4715 


3.2385 


8. 


6.6897 


8. 


6.3961 


8. 


6.1364 


8. 


5.6575 


8.0000 


5.1676 


8.0000 


4.8607 


8.0000 


4.6239 


75.14 


67.52 


71.34 


84.24 


81.90 


105. 


94.95 


108.58 


91.10 


126.68 


102.05 


148.37 


114.65 


170.38 


121.37 


215.71 


139.92 


244.22 


149.45 


277.08 


30 

127 

127 

13 

3.4252 

5.5591 

8.0000 

161.42 

31 

236 

236 

14 

2.0000 

3.1864 

4.4280 

314.12 

32 

131 

131 

UK] 

14 

3.5878 

5.7405 

8.0000 

174.36 

33 

270 

270 

HHKl 

16 

2.0000 

3.1111 

4.2259 

392.04 

34 

143 

143 

16 

3.7692 

5.8741 

8.0000 

207.64 

Exact  risk  assessments  are  available  for  any  selected  plan  by  exerdsiiig  sdection  number  1  of  the  DouUe 
Sampling  Menu. 


35 


3.  Double  Sampling  Plan  Derivation  from  MIL-STD-105D  Acceptance  Rejection 

Numbers  and  All  Stated  Sample  Sizes 

This  final  double  sampling  option,  illustrated  in  Figure  10,  provides  a  search  of 
the  feasible  double  sampling  contained  in  MIL-STD-IOSD  for  Normal  Inspection,  Tightened 
Inspection  and  Reduced  Inspection.  The  search  is  initiated  by  inputting  the  AQL,  LTPD,  pro¬ 
ducer’s  risk,  consumer’s  risk,  producer’s  risk  tolerance  and  consumer’s  risk  tolerance.  To  expe¬ 
dite  the  search,  a  provision  has  been  added  within  the  source  code  to  allow  the  user  to  specify  a 
maximum  total  sample  size.  If  no  maximum  is  entered,  one-^llion  is  assumed.  Additionally, 
if  the  search  is  being  conducted  for  a  specific  lot  size  (i .  e..  Hypergeometric  evaluation),  the 
user  will  be  prompted  for  the  numeric  value  of  the  finite  lot  size. 

The  search  algorithm  begins  with  the  formulation  of  a  double  sampling  plan  from 
MIL-STD-IOSD.  Any  plan  in  which  the  acceptance,  rejection,  and  sample  numbers  are 
compatible  is  considered  to  be  feasible.  The  producer’s  risk  and  consumer’s  risk  are  calculated 
for  the  generated  plan.  If  the  risks  ve  simultaneously  within  the  risk  tolerance  limits,  the  plan  is 
printed  for  user  consideration.  Otherwise,  the  plan  is  not  printed.  In  either  case,  the  formulation 
of  another  plan  is  initiated  and  the  process  is  repeated.  This  iterative  formulation,  evaluation,  and 
comparison  is  continued  until  all  of  the  possible  plans  contained  in  MIL-STD-IOSD  have  b^n 
exhausted. 


To  illustrate  this  design  option,  the  data  shown  in  Table  18  was  entered  for  the 
indicated  prompts.  Since  the  Binomial  option  has  a  faster  processing  time,  no  constraint  on 
sample  size  was  imposed.  Table  19,  contains  the  five  MIL^TD-IOSD  plans,  output  for  this 
scenario,  found  to  possess  risks  that  are  within  the  risk  design  tolerances.  Similarly,  the  Hyper¬ 
geometric  evaluation  was  constrained  to  a  total  sample  size  of  100  or  less  units  and  a  finite  lot 
size  of  250.  The  results  of  the  MIL-STD-105D  search  are  the  two  plans  shown  in  Table  20. 

Ihble  18.  Double  Sampling  Prompt/Response  Data 


Prompt 

Response 

AQL 

2 

LTPD 

8 

ALPHA 

5 

BETA 

10 

ALPHA  Tolerance 

5 

BETA  Tolerance 

8 

36 


Table  19.  MIL-STD--10SD  Double  Sampling  Plans  Meeting  the  Design  Tolerances 

(Binomial  Evaluation) 


Binomial  Probability  Evaluation 
Optional  MIL-STD-105D  Sampling  Plans 
AQL  -  2%  and  LTPD  >  8% 

Producer’s  Risk  s  5  ±  5%  and  Consumer’s  Risk  » 10  ±  8% 


Accqit/Rcject  Criteria 

Risk  and  Sampling  Burden  at  Desired  Specification 

Second 

AccqjtaUe  Quality  Level 

Tolerance  %  Defective 

1st 

2iid 

Aoc 

Rq 

Acc 

Rej 

Pa 

Pc 

Alpha 

ASN 

Beta 

Pc 

Pr 

ASN 

SO 

SO 

1 

4 

4 

5 

95.2 

24.6 

4.8 

62.3 

13.2 

34.3 

86.8 

67.1 

mi 

2 

5 

6 

7 

95.5 

19.3 

4.5 

95.5 

18.3 

94.8 

94.6 

mi 

3 

mm 

8 

9 

99.5 

7.6 

.5 

86.1 

15.8 

43.1 

84.2 

114.5 

125 

9 

12 

13 

99.8 

mM 

.2 

129.9 

wtm 

26.4 

92.5 

158.0 

9 

14 

23 

24 

100.0 

.7 

201.5 

6.8 

22.7 

93.2 

245.5 

Table  20.  MELr^TD-lOSD  Double  Sampling  Plans  Meeting  the  Design  Tolerances 

(Hypergeometric  Evaluation) 


Hypergeometric  Probability  Evaluatim 

Optional  MIL-STD-IOSD  Samjding  Plans 

AQL«  2%  andLITD  >  8% 

Producers  Risk  sS  ±  5%  and  Consumer’s  Risk  a  10  ±  8% 
Maximum  Ibtal  Sanqde  Constraint:  120 

Lot  Size  *250 

Accqit/Rqect  Criteria 

Risk  and  Sampling  Burden  at  Desired  Specification 

First 

Second 

AcceptaUe  Quality  Level  |  TUerance  %  Defective 

1st 

2nd 

Acc 

Rq 

Aoc 

Rq 

Pa 

Pc 

Pc 

Pr 

ASN 

50 

SO 

1 

4 

4 

98.8 

1^1 

1.2 

62.8  1  8.7 

34.3 

91.3 

67.1 

A  complete  assessrnem  of  any  of  these  {dans  is  obtaind>le  by  exercising  Option  #1  of  this  software  segment. 

D.  Multiple  Sampling  Plan  Design  and  Assessment 


Multiple  sampling  plans,  in  the  form  presented  herein,  are  rarely  utilized.  Though 
somewhat  more  complex  than  double  sampling,  multiple  sampling  is  instigated  in  an  effort  to 
reduce  the  expected  number  of  units  sampled  to  a  dedsion  for  constant,  specified  risk  levels. 

As  used  in  this  application,  multiple  sampling  involves  the  repetitive  drawing  of  an  incremental 
sample  size,  usually  represented  by  n.  After  each  inaemental  sample  is  drawn,  the  total  number 
of  defectives  is  tabulated  and  compared  to  the  progressive  accqrtance/rejecdon  numbers.  If  the 
cumulative  number  of  defectives  is  less  than  or  eqi^  to  the  aocq>tance  number,  the  lot  is 
accq)ted.  If  the  cumulative  number  of  defectives  is  greater  than  or  equal  to  the  rejection 
number,  the  lot  is  rejected.  Otherwise,  the  next  incremental  sample  size  is  drawn.  The  analyses 
assodated  with  this  segment  of  the  software  deal  exdusively  wiA  plans  in  which  this  inaemen- 
tal  samjde  size  is  constant  The  procedure  described  above  is  repeated  until  the  lot  is  dther 
accepted  or  rejected.  A  dedsion  to  accept  or  reject  is  guaranteed  since  all  of  these  plans  con¬ 
verge.  Convergence  occurs  when  the  acceptance  number  plus  one  equals  the  rejection  number. 
References  1, 2, 6,  and  7  provide  extensive  discussions  and  examples  of  these  type  of  plans. 
Spedfically,  MILr^STD-lOSD  provides  tables  of  multiple  sampling  plans  for  Normal  Inspection, 
Tightened  Inspection,  and  Reduced  Inspection,  but  these  plans  are  not  indexed  as  functions  of 
acceptable  quality,  unacceptable  quality,  and  risks.  Reference  6  does  provide  plans  indexed  in 
the  spedfied  manner,  but  Ae  risks  are  approximated  by  the  use  of  the  Poisson  distribution. 
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However,  when  a  plan  is  specified,  precise  risks  can  and  should  be  evaluated  with  either  the 
Binomial  distribution  or  the  Hypergeometric,  depending  upon  the  conditions  under  which  the 
plan  is  to  be  implemented. 

To  assist  the  user  in  designing  multiple  sampling  plans  whose  OC  curves  pass,  or  early 
pass,  through  two  desired  points.  Option  3  of  Figure  4  was  aeated.  If  this  option  is  exercised, 
the  two  design  aids  illustrated  in  Figure  17  will  be  displayed  on  the  CRT.  Option  Ts  software 
provides  an  algorithm  based  on  the  article  entitled,  ‘Master  Sampling  Plans  for  Single,  Dupli¬ 
cate,  Double,  and  Multiple  Sampling’  by  Enters  and  Hamaker  [6].  These  plans  possess  the  com¬ 
mon  trait  that  they  {proximate  a  producer’s  risk  of  5  percent  for  an  input^  AQL  and/or  they 
approximate  a  consumer’s  risk  of  10  percent  for  an  inputted  LTPD.  The  approximation  is  ba^ 
on  a  Poisson  distribution.  Once  the  plans  are  identifi^  the  algorithm  uses  the  Binomial 
distribution  to  assess  the  actual  risk  levels.  The  option  was  not  added  to  obtain  a  Hypergeo¬ 
metric  assessment  since  it  is  anticipated  that  in  the  plan  design  phase  the  user  is  primarily  con¬ 
cerned  with  generic  lot  sizes.  If  warranted,  the  Hypergeometric  option  can  and  should  be 
included.  This  departure  from  the  Chemical  Corps  Engineering  Agency’s  procedure  will 
provide  a  more  accurate  risk  assessment. 


Multiple  Sampling  Design  Options 

Potion  Description  Select  Code 

>  Bamard-Enters-Hamaker’s  Poisson  Approximation  of  Sample  Size 
for  Producer’s  Risk  of  Five  Percent  &  Consumer’s  Risk  of  Ten  Percent. 


Achieved  Risks  are  Calculated  \^a  the  Binomial .  1 

>  MIL-STD-105D  Alternate  Plans  For  Specified  AQL,  Producer’s 
Risk,  LTPD,  and  Consumer’s  Risk.  Achieved  risks  are  Calculated 
Via  Ae  Binomial . 2 


ENTER  THE  SELECT  CODE  OF  THE  DESIRED  OPTION. 


Figure  17.  Multiple  Sampling  Plan  Design  Menu 

To  illustrate  the  option’s  use,  an  AQL  of  2  percent  and  an  LTPD  of  12  percent  were 
used  as  responses  to  the  appropriate  prompts.  The  Chemical  Corps  Engineering  Agency  {uoce- 
dure  indicated  a  ratio  of  six  (i.e.,  LTPD/AQL).  Hus  yields  an  incremental  sample  size  of  12.  As 
illustrated  in  Figure  18,  the  software  prints,  as  ou^^  a  series  of  plans  which  are  derived  by  a 
sensitivity  analysis  of  die  inaemental  sample  size  (i.e.,  the  incremental  sample  size  ranges  from 
11  to  15).  This  feamre  was  included  to  provide  a  measure  of  the  marginal  relationship  between 
the  adiieved  risks  and  the  incremental  values  of  n.  Upon  reviewing  Figure  18,  it  will  be  noted 
that  each  multiple  sampling  plan  specification  is  followed  by  a  note  wUch  states  that  a  complete 
risk  assessment  is  obtainable  by  exercising  Option  5  of  the  main  menu,  (Fig.  4).  If  this  feature  is 
chosen,  a  complete  Binomial  assessment  is  available.  Additionally,  a  complete  Hypergeometric 
assessment  is  available  if  the  plan  is  to  be  evaluated  against  a  specified  finite  lot  size.  To  illus¬ 
trate  the  use  of  Option  5  in  this  ai^lication,  a  Binomid  assessment  was  chosen.  A  Hypergeo¬ 
metric  assessment  will  be  illustrate  later  within  this  section. 
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Figure  18.  Multiple  Sampling  Plan,  Option  1  Ou^tforAQL  s  2  Percent 

andLTPD  -  12Percau 

Figure  19  provides  a  schematic  of  the  resulting  OC  curve  for  Plan  #1,  n  *  11,  while 
Table  21  contains  specific  points  firom  the  curve  along  with  the  expected  sample  size  to  a  deci¬ 
sion.  Shown  as  Figure  20  is  the  avmage  sample  number  plot  The  expected  sample  sizes  shown 
in  Figure  20  are  based  on  Binomial  risk  evaluations  and  Ae  assumption  that  there  is  no  sample 
termination. 
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Figure  19.  OC  Curve  for  Optumal  Multiple  Bantling  Plan  til 
Hable  21.  OC  Corve/ASN  Points  for  Optional  Multiple  Sampling  Plan  #1 


Figure  20.  ASN  Plot  for  Optional  Multiple  San^Ung  Plan  #1  (udOtout  Sample  Termination) 

Option  2  of  Figure  17  provides  the  user  with  the  capability  of  seardiing  the  multiple 
sampling  plan  possibilities  contained  in  MIL-STD-105D.  The  search  is  conducted  to  determine 
which  plan  contained  therein  comes  dosest  to  meeting  the  desired,  iiqnitted  quality  levels  and 
risks.  The  ‘doseness’  criteria  spedfied  herein  is  stated  quantitatively  as 

D  *  y^(Prisk  -  Alpha)^  +  (Crisk  -  Beta)^ 

where  Frisk  is  the  computed  producer’s  risk  for  an  identified  plan  Crisk  is  the  identified  plan’s 
consumer’s  risk.  Alpha  is  the  desired  producer’s  risk,  and  Beta  is  the  desired  consumer’s  risL 
lb  illustrate  the  opmation  of  this  option,  an  AQL  of  2  percent,  an  LTPD  of  12  percent,  a  produc* 
er’s  risk  of  5  percent  and  a  consumer’s  risk  of  10  percent  was  entered  for  the  corresponding  in¬ 
put  prompts.  The  resulting  output  is  illustrated  in  Figure  21.  Of  the  multiple  plans  contained  in 
MIL-STD-105D,  the  {dan  with  the  incremental  sam^e  size  of  11  and  the  acceptance^ection 
numbers  shown  in  the  lower  right-hand  comm  of  Figure  21  is  the  dosest  to  the  design  criteria, 
where  doseness  is  computed  1^  Equation  (4).  lb  illustrate  the  complete  assessment  ciqMdHlity 
of  Option  5  of  Figure  4,  the  derived  multifde  sampling  plan  and  a  finite  lot  size  of  500  were 
provided  as  input  The  resulting  Hypergeometric  assessment  is  summarized  in  Figure  22,  Figure 
23,  and  TaUe  22.  It  is  pertinent  to  point  out  that  the  results  illustrated  for  this  iq>plication  are 
valid  only  for  lots  containing  500  units  and  that  the  ASN  {dot  is  fiirthm  constrained  the 

assumption  of  no  sample  termination. 


”•  s  !•  tt  It  w  w  n^e^sMWMnnnMMM 

■ftkllVU  b9T«  W%  •  BW  wilM 

Figure  23.  ASN  Plot  for  AOL-STD-IOSD  Multiple  Sampling  Plan 
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IVible  22.  OC  Curve/ASN  Points  for  MILr-STD-lOSD  Multiple  Sampling  Plan 


E.  Sequential  Sampling  Design  and  Assessment 

The  final  design  aid  provided  by  this  automation  deals  with  Wald’s  Sequential 
Sampling  Theory.  Mr.  Acheson  J.  Duncan,  [1],  provides  a  comprehensive  and  thorough  discus¬ 
sion  of  Wedd’s  S^uential  Sampling  Plan  design  and  assessment;  therefore,  Mr.  Duncan’s  discus¬ 
sion  will  not  be  reiterated  here.  Let  it  suffice  to  say  that  the  software  contained  herein,  as  Option 
4  in  Figure  4  simply  automates  Mr.  Duncan’s  approach.  This  automation  is  inclusive  of  the 
operating  characteristic  curve  and  average  samfde  number  plot  construction  via  the  parametric 
equation  approach.  The  software  comprising  this  option  is  attadied  as  Appendix  D  of  this  re¬ 
port 

Before  proceeding  to  an  example,  it  must  be  stated  that  the  OC  curve  and  average 
sample  number  plot,  obtained  via  the  dted  parametric  evaluation,  are  valid  only  if  the  sequential 
plan  is  adopted  in  its  entirety.  That  is,  no  modification  of  any  type  is  permitted.  If  this 
compliance  is  met,  the  austere  possibility  mdsts  that  an  entire  lot  can  be  sampled  without  an  ac¬ 
ceptance  or  rejection  decision.  If  destructive  testing  and/or  high  unit  test  cost  are  assodated  with 
the  sampling,  sequential  sampling  is  often  abandoned  because  of  this  possibility.  Not  withstand¬ 
ing  this  austere  possibility  and  the  relative  complexity  of  applying  the  the  plan,  Wald’s  Sequen¬ 
tial  Sampling  Plans  do  minimize  the  expected  number  of  units  sampled  to  a  dedsion,  for  sped- 
fied  quality  levels  and  risks.  Additiomdly,  the  sequential  plans  often  provide  the  basis  of  tailor 
made  plans  which  result  from  truncations  of  the  sequentid  sampling.  If  the  user  requires  a  more 
indepth  discussion  of  this  topic.  Reference  1  should  be  consulted. 

Upon  entering  a  4  for  the  prompt,  illustrated  in  Figure  4  the  user  will  be  sequentially 
prompted  for  the  AQL,  LTPD,  the  producer’s  risk,  and  the  consumer’s  risk.  To  illustrate  the  use 
of  the  sequential  portion  of  the  software,  2  percent,  12  percmit,  5  percent,  and  10  percmit  were 
entered  for  the  identified  prompts.  The  first  ouqnit  segmmit  provided  is  an  option  to  print  the 
computed  acceptance  line  and  the  computed  rqection  line.  For  this  ajqplication,  the  lines  were 

Acceptance  Line:  X  =  -<1.18527087142)  -i-  .05666S9067S44n  (5) 

and 

Rejection  Une:  X  s  (1.52173674436)  +  .0566659067544n  (6) 
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where  n  is  the  chronological  number  of  the  unit  sampled.  The  acceptance  and  rejection  numbers 
are  undefined  for  X  values  less  than  zero.  Addition^ly,  for  application  purposes  the  rejection 
line  values  are  always  rounded  up  to  the  higher  integer  while  the  acceptance  numbers  are  always 
rounded  down  to  the  lower  integer.  This  procedure  tends  to  widen  the  continue  region  and  does 
cause  variation  in  the  actual  probability  of  acceptance  and  expected  sample  size  from  those  ex¬ 
pected  via  the  aforementioned  parametric  evaluations.  These  departures  are  customarily 
assumed  to  be  negligible. 

Table  23  contains  a  output  sununary  of  the  derived  sequential  sampling  plan  which 
was  derived  by  calculating  the  acceptance  and  and  rejection  numbers  for  n  values  ranging  from 
1  to  100.  It  is  pertinent  to  point  out  that  the  plan  infinitely  extends  beyond  a  sample  of  100.  The 
acceptance  and  rejection  numbers  provided  in  Table  23  have  been  subjected  to  the  rounding  pro¬ 
cedure  previously  discussed.  Table  24  contains  the  results  of  applying  the  parametric  equations 
discussed  by  Mr.  Duncan.  As  such,  these  points,  for  both  the  probability  of  acceptance  and  the 
expected  sample  size  to  a  decision,  constitute  estimates.  Figures  24  and  25  provide  schematics 
of  the  OC  curve  and  the  ASN  plot  which  were  derived  from  the  points  shown  in  Table  24.  A 
word  of  caution  is  in  order.  The  OC  curve  and  the  ASN  plot  are  valid  estimates  only  for  the 
unbounded  Wald  Sequential  Sampling  Plan  defined  by  the  parallel  lines  stated  as  Equations  (5) 
and  (6).  Any  alteration  of  the  plan  in  any  way  invalidates  Uie  referenced  schematics.  Alter¬ 
ations  usually  take  the  form  of  sequential  plan  truncation  which  will  be  subsequently  addressed. 
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Table  23.  Integeiized  Sequential  Sampling  Plan  Specification 


VUd’s  Sequential  Sampling  TaUe 

AQL  s  2%  and  LTPD  s  12%,  Producer’s  Risk  s  S%  Consumer’s  Risk  =  10%, 


Number  of 

If  Total 

Number  of 

If  Total 

Number  of 

If  Total 

Number  of 

If  Total 

Units 

Defective 

Units 

Defective 

Units 

Defective 

Units 

Defective 

Sampled 

Acpt 

Rejt 

Sampled 

AqM 

Rejt 

Sampled 

Aqit 

Rqt 

Sampled 

Acpt 

Rejt 

1 

■Hi 

26 

0 

3 

51 

1 

76 

3 

6 

2 

■Hi 

2 

27 

0 

4 

52 

1 

5 

77 

3 

6 

3 

2 

28 

0 

4 

53 

1 

5 

78 

3 

6 

4 

2 

29 

0 

4 

54 

1 

5 

79 

3 

6 

5 

2 

30 

mm 

4 

55 

1 

5 

3 

7 

6 

2 

31 

lEH 

4 

56 

1 

5 

81 

3 

7 

7 

•  •• 

2 

32 

0 

4 

57 

2 

5 

82 

3 

7 

8 

2 

33 

0 

4 

58 

2 

5 

83 

3 

7 

9 

3 

34 

0 

4 

59 

2 

5 

84 

3 

7 

10 

■Hi 

3 

35 

4 

60 

2 

5 

85 

3 

7 

11 

3 

36 

0 

4 

61 

2 

5 

86 

3 

7 

12 

«** 

3 

37 

KUP 

4 

62 

2 

6 

87 

3 

7 

13 

••• 

3 

38 

mim 

4 

63 

2 

6 

88 

3 

7 

14 

3 

39 

1 

4 

64 

2 

6 

89 

3 

7 

15 

HH 

3 

40 

1 

4 

65 

2 

6 

90 

3 

7 

16 

•  •• 

3 

41 

1 

4 

66 

2 

6 

91 

3 

7 

17 

3 

42 

1 

4 

67 

2 

6 

92 

4 

7 

18 

nm 

3 

43 

1 

4 

68 

2 

6 

93 

4 

7 

19 

HH 

3 

44 

1 

5 

69 

2 

6 

94 

4 

7 

20 

3 

45 

1 

5 

70 

2 

6 

95 

4 

7 

21 

0 

3 

46 

1 

5 

71 

2 

6 

96 

4 

7 

22 

HOI 

3 

47 

1 

5 

72 

2 

6 

97 

4 

8 

23 

lEH 

3 

48 

1 

5 

73 

2 

6 

98 

4 

8 

24 

0 

3 

49 

1 

5 

74 

3 

6 

99 

4 

8 

25 

0 

3 

50 

1 

5 

75 

3 

6 

100 

4 

8 

46 


Table  24.  Parametric  OC  Curve  and  ASN  Plot  Points 


Sequential  Sampling  AQL  =  2%,  Producer’s  Risk  =  S%,  LTPD  =  12%,  and  Consumer’s  Risk  •  10% 
Probability  of  Acceptance  and  Average  Sample  Size  Versus  Percent  Defective 


Percent 

Defective 

Probability  of 
Acceptance 

Average 

Sample 

Number 

Percent 

Defective 

Probability  of 
Acceptance 

Average 

Sample 

Number 

.55 

99.69% 

23.01 

5.78 

53.68% 

33.48 

.58 

99.66% 

23.13 

6.08 

51.13% 

33.17 

.61 

99.62% 

23.26 

6.30 

48.58% 

32.81 

.65 

99.57% 

23.29 

6.51 

46.06% 

32.41 

.69 

99.52% 

23.53 

6.74 

43.57% 

31.96 

.72 

99.46% 

23.68 

6.97 

41.11% 

31.47 

.76 

99.39% 

23.84 

7.20 

38.71% 

30.95 

.81 

99.32% 

24.01 

7.43 

36.38% 

30.39 

.85 

99.24% 

24.18 

7.67 

34.12% 

29.81 

.90 

99.15% 

24.36 

7.92 

31.93% 

29.20 

.95 

99.05% 

24.56 

8.17 

29.83% 

28.58 

98.93% 

24.76 

8.42 

27.82% 

27.94 

1.05 

98.80% 

24.97 

8.67 

25.90% 

27.29 

1.10 

98.66% 

25.19 

8.93 

24.08% 

26.63 

1.16 

98.50% 

25.42 

9.20 

22.35% 

25.97 

1 

1.22 

98.33% 

25.66 

9.46 

20.72% 

25.31 

1.29 

98.13% 

25.91 

9.73 

19.19% 

24.66 

1.35 

97.91% 

26.17 

10.01 

17.74% 

24.00 

1.42 

97.66% 

26.45 

10.28 

16.39% 

23.36 

1.50 

97.39% 

26.73 

10.56 

15.12% 

22.73 

1.57 

97.09% 

27.02 

10.84 

13.95% 

22.10 

1.65 

96.75% 

27.33 

11.13 

12.85% 

21.49 

1.73 

96.38% 

27.64 

11.42 

11.83% 

20.90 

1.82 

95.96% 

27.96 

11.71 

10.88% 

20.32 

1.91 

95.51% 

28.29 

12.00 

10.00% 

19.75 

2.00 

95.00% 

28.63 

12.30 

9.19% 

19.20 

2.10 

94.44% 

28.98 

12.59 

8.44% 

18.67 

2.20 

93.83% 

29.34 

12.89 

7.74% 

18.16 

Z30 

93.15% 

29.70 

13.19 

7.10% 

17.66 

Z41 

92.41% 

30.06 

13.50 

6.51% 

17.18 

2.52 

91.59% 

30.43 

13.80 

5.97% 

16.71 

163 

90.70% 

30.79 

14.11 

5.47% 

16.27 

2.75 

89.73% 

31.15 

14.42 

5.01% 

15.84 
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l^ble  24.  Parametric  OC  Curve  and  ASN  Plot  Points  (continued) 


Percent 

Defective 

Probability  of 
Acceptance 

Average 

Sample 

Number 

Percent 

Defective 

Probability  of 
Acceptance 

Average 

Sample 

Number 

2.88 

88.68% 

31.51 

14.73 

4.59% 

15.42 

3.01 

87.53% 

31.86 

15.04 

4.21% 

15.02 

3.14 

86.29% 

32.20 

15.35 

3.85% 

14.63 

3.28 

84.95% 

32.53 

15.67 

3.52% 

14.26 

3.42 

83.52% 

32.84 

15.98 

3.23% 

13.90 

3.56 

81.97% 

33.13 

16.30 

2.95% 

13.56 

3.71 

80.33% 

33.40 

16.62 

2.70% 

13.23 

3.87 

78.58% 

33.63 

16.93 

2.47% 

12.91 

4.03 

76.73% 

33.84 

17.25 

2.26% 

12.61 

4.19 

74.77% 

34.01 

17.57 

2.07% 

12.31 

4.36 

72.72% 

34.14 

17.89 

1.89% 

12.03 

4.53 

70.57% 

34.23 

18.21 

1.73% 

11.76 

4.71 

68.34% 

34.27 

18.53 

1.58% 

11.50 

4.89 

66.03% 

34.27 

18.85 

1.45% 

11.25 

5.08 

63.65% 

34.21 

19.17 

1.32% 

11.00 

5.27 

61.22% 

34.11 

19.49 

1.21% 

10.77 

5.47 

58.73% 

33.95 

19.81 

1.10% 

10.55 
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Figure  24.  Parametric  OC  Curve  for  Wald's  Sequential  Sampling  Plan 
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Figure  25.  Parametric  ASN  Plot  for  Wald’s  Sequential  Sampling  Plan 
F.  Ikiincated  Scqnential  Sampling  or  Any  Convergent  Plan  Assessment 

The  greatest  disadvantages  associated  with  a  sequential  sampling  plan  are  the 
complexity  of  implementing  the  plan  and  the  possibility  of  an  indefinite  sample  size.  Conse¬ 
quently,  many  sequential  sampling  plans  are  ‘made’  to  converge  by  truncating  the  plan.  TYun- 
cating  a  sequentiid  plan  simply  means  that  at  some  point  in  sampling  the  acceptance  number  plus 
one  is  made  to  equd  the  rejection  number.  This  assures  that  sampling  will  not  go  beyond  that 
point  Further  modifications  are  often  made  by  adjusting  the  numerical  values  of  either  the 
aooqitanoe  number  or  the  rqection  number  or  both.  The  result  of  this  process  is  that  the 
maximum  sample  size  is  guaranteed  to  be  less  than  or  equal  to  the  n  vidue  associated  with  the 
point  of  convergence.  This  guarantee  is  ofEset  by  changes  in  the  probability  of  accq>tance  and 
ASN  from  that  assessed  for  the  original  sequential  sampling  plan. 

As  an  example,  consider  the  sequential  plan  shown  in  Table  23.  Suppose  the  plan  was 
altered  to  assure  that  the  maximum  sample  size  would  be  50.  One  sudi  alteration  is  shown  in 
Thble  25.  The  altered  {dan  is  similar  to  the  sequential  plan,  but  upon  a  dose  comparison  it  will 
be  seen  that  both  the  acceptance  and  rejection  numbers  have  been  slightly  altered  for  selected 
values  of  cumulative  sample  size.  These  alterations  convert  the  sequential  plan  into  a  multiple 
sampling  plan  and  as  sudi  possesses  its  own  unique  OC  curve  and  ASN  relationship.  Option  5 
(Fig.  4)  can  be  used  to  exp^te  the  assessment  of  the  probability  of  acceptance  and  expected 
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sample  size  versus  the  appropriate  quality  diaracteristic,  percent  defective  or  (tefecdves  per  lot. 
The  choice  of  which  quality  characteristic  is  dependent  on  the  assumption  concerning  lot  size. 


Table  25.  A  Sequential  Sampling  Plan  Truncation  Alternative  (continued) 


Total 

Number  of 
Units 
Sam|ded 

Cumulative 

Acceptance 

Number 

(A) 

Cumulative  Continuance  Numbers  (Q 

(!>unulative 

Rgection 

Number 

(R) 

40 

2 

□ 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

41 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

42 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

43 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

44 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

45 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

46 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

47 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

48 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

49 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

50 

3 

X 

XXX 

^21 

EZ3 

C3 

ESI 

1^3 

EZII 

4 

The  multiple  sampling  plan  shown  in  Table  25  was  entered  via  the  Option  5  prompts 
in  Figure  4.  The  renting  OC  curve  is  depicted  in  Figure  26,  and  the  average  sample  number 
plot  is  shown  in  Figure  27.  Table  26  contains  selected  points  from  the  two  referenced  sche¬ 
matics.  Also,  the  impacts  of  of  altering  the  sequential  sampling  plan  to  assure  a  maximum,  sam¬ 
ple  size  of  50  is  shown  in  Ihble  27.  It  is  important  to  point  out  t^  the  comparisons  shown  in 
Table  27  are  valid  only  for  the  multiple  sampling  plan  contained  in  Table  25.  Any  other  alter¬ 
ation  of  the  sequential  sampling  plan  would  require  a  similar  comparison. 


Figure  26.  OC  Curve  for  the  Tnmcated  Sequential  Sampling  Plan 
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Figure  27.  ASN  Plot  for  the  Truncated  Sequential  Sampling  Plan 


l^ble  26.  Probability  of  Acceptance  and  Expected  Sample  Size  for  the  located  Sequential 

Sampling  Plan  Alternative 


Percent  Defective 

Accqjtance  Probability 

Average  Sample  Numba 

1.00% 

97.60% 

23.5 

87.68% 

26.0 

1  4.00% 

53.59% 

26.0 

25.30^ 

22.0 

icSSflS 

17.6 

10.00% 

3.93% 

14.0 

12.00% 

1.44% 
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Thble  27.  Sequential  Versus  Truncated  Sequential  Comparison 


Plan  Parameter 

Wald’s  Sequential 

IkUe  25’s  Tbincated  Plan 

Producer’s  Risk 

5% 

1232% 

To?E 

0455 

28.63 

26.00 

19.20 

11.30 
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It  is  not  the  intention  of  this  guide  to  discuss  the  relative  value  of  one  plan  over  another.  The 
intent  is  simply  to  present  automated  quantitative  techniques  to  enhance  the  user’s  ability  to  effi¬ 
ciently  and  precisely  design  and  assess  lot  acceptance  sampling  plans.  The  example  discussed 
above  is  based  on  a  Binomial  evaluation  of  event  probabilities.  A  Hypergeometric  evaluation 
and  another  aspect  of  Option  5  of  Figure  4  are  discussed  below. 

The  manner  in  which  samples  are  drawn  alters  the  risks  and  expected  sample  sizes,  if 
the  method  of  sampling  departs  from  that  specified  by  the  plan.  To  illustrate,  su{^x>se  the  plan 
shown  in  Table  25  is  to  be  used  in  conjunction  with  a  lot  containing  500  units.  Instead  of  the 
single  unit,  consecutive  sampling  indicated  in  Ihble  25,  the  sampling  is  constrained  to  be  clus¬ 
tered  as  shown  in  Table  28.  Simply  stated,  accept/reject  decisions  can  occur  only  after  a  sample 
number  has  been  drawn  (i .  e.,  there  are  thirteen  points  at  which  a  lot  can  be  accepted  or  re¬ 
jected).  This  type  of  sampling  often  occurs  in  ripple  firing  or  multiple  launch  missile/rocket  fir¬ 
ings.  The  sampling  plan  shown  in  Table  25  can  easily  be  modified  to  accommodate  the  duster 
sampling  scenario  and  can  he  detailed  as  shown  in  Table  29. 


Table  28.  Cluster  Sampling  Constraints 


Sample  Number 

«1 

#2 

#3 

«4 

#S 

«6 

#7 

«8 

«9 

#10 

#11 

#12 

#13 

Sampling  Inoement 

6 

3 

2 

1 

6 

2 

6 

4 

6 

5 

4 

3 

2 

Cumulative  Sample  Size 

6 

9 

11 

12 

18 

20 

26 

36 

41 

45 

48 

50 

Table  29.  Ouster  Sampling  Acceptance/Rejection  Criteria 


Total  Num¬ 
ber  of 
Units 
Sampled 

Cumulative 

Accqitance 

Number 

(A) 

Cumulative  Continuance  Numbers  (C) 

Cumulative 

RriecUon 

Number 

(R) 

6 

X 

mm 

mm 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

2 

9 

X 

mm 

mm 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

2 

11 

«•* 

X 

K1 

1 

2 

XXX 

E3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

3 

12 

X 

mm 

mm 

2 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

3 

18 

X 

0 

1 

2 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

3 

20 

IliKflH 

□ 

mm 

2 

3 

XXX 

XXX 

E3 

XXX 

XXX 

XXX 

4 

26 

0 

X 

mm 

2 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

30 

1 

X 

2 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

36 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

41 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

45 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

48 

2 

X 

3 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

XXX 

4 

50 

3 

□ 

EI3 

rrem 

^231 

Ea 

133 

^^3 

rm 

[73 

4 

IWo  alterations  of  the  assumptions  under  which  Figure  26  and  Figure  27  were 
constructed  will  cause  significant  departures  in  the  actual  operating  characteristic  curve  and 
average  sample  number  plot  of  the  implemented  plan.  The  first  alteration  is  the  fact  that  a  finite 
lot  size  of  500  units  is  known  which  requires  a  Hypergeometric  evaluation  in  lieu  of  a  Binomial 
evaluation.  The  second  alteration  is  that  there  are  49  accept/reject  dedsion  points  in  Table  25, 
and  there  are  only  13  sudi  points  in  Table  29.  The  effect  of  these  two  alterations  can  be  readily 
assessed  by  Option  5  of  Figure  4. 
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Upon  entering  the  sample  size  values  at  which  accept/reject  decisions  are  made  and 
the  respective  acceptance  numbers  and  rejection  numbers  at  these  sample  sizes,  via  Option  5’s 
prompts  the  OC  curve  shown  in  Figure  28  is  obtained.  Additionally,  the  expected  number 
sampled  to  a  decision  is  shown  in  the  ASN  plot  included  as  Figure  29,  the  effect  of  clustering  the 
samples,  as  described  above,  and  the  aj^lication  of  a  finite  lot  size  of  500  on  the  truncated 
sampling  plan,  shown  in  Table  25  is  summarized  in  Ihble  30. 


■  9  II  19  <■  29  M  99  41  49  91  99  SI  19  71  79  19  II  19  III 

OErCCTXVCS  PER  LOT.  Lot  lizo  -  Ml  Unito 


Figure  28.  Clus^  Sampling  OC  Curve 
Table  30.  Triincated  Versus  Cluster  Sampling  Comparison 


Plan  Parameter  I  Truncated  I  Qiistered 


Producer’s  Risk  12.23% 


Consumer’s  Risk  I  1.44%  I  21.22% 


ASN@AQL  2SM  283o 


ASN@LTPD  I  19.a)  I  2330 


Figure  29.  Cluster  Sampling  ASN  Plot 

G.  Snimnary 

The  puipose  of  this  section  is  to  provide  a  series  of  example  problems  and  the 
associated  ont^t  which  collectively,  provide  an  exhaustive  illustration  of  the  scope  of  applica¬ 
tion  of  the  so^are  attadied  hereto  as  appendixes.  The  prime  consideration,  rq>^tivdy  stated 
within  this  section,  is  that  no  iqiproximations  of  event  probalalities  are  made.  Moreover,  the 
event  probabilities  are  calcula^  by  the  Hypergeometric  distribution  when  finite  lot  sizes  are 
a  consideration,  and  they  are  calculated  by  Ae  Binomial  distribution  when  finite  lot  sizes  are 
not  a  consideration. 

The  inaeased  precision  of  risk  forecasts  and  aq)ected  sample  size  expenditures  to  a 
decision  is  a  agnificant  advantage;  however  it  is  only  one  aspect  of  t^  software.  Option  5  of 
Figure  4  is  perhsyis  the  most  significant  advantage  in  that  it  i^ords  e3q)edient  risk  assessments 
and  ASN  evaluations  for  any  and  all  convergent  sampling  jdans.  This  generic  evaluator  could, 
if  desired,  replace  large  portions  of  the  softt^e  devoted  to  the  evaluation  of  these  parameters 
in  Options  1, 2,  and  3. 
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m.  CONCLUSIONS  AND  EXTENSIONS 

The  primary  technical  advantage  provided  by  the  use  of  LAVAS  is  the  automation  of  the 
tremendous  calculation  burden  imposed  in  performing  event  probability  evaluations  using  the 
Binomial  or  the  Hypergeometric  distributions.  The  burden  is  well  recognized  as  being  signifi¬ 
cant  as  evidenced  by  the  proliferation  of  approximation  techniques  found  in  cunent  literature 
pertaining  to  attribute  sampling  for  lot  acceptance.  Regardless  of  the  efficiency  of  a  particular 
approximation  technique,  it  is  just  that,  an  approximation  technique  which  infers  some  degree  of 
enor.  Destructive  testing  of  modem  missiles  and/or  rockets  imposes  such  austere  cost  accruals 
that  precision  in  risk  assessments  is  vital. 

Additionally,  LAVAS  provides  risk  assessments  for  any  convergent  sampling  plan,  in  addi¬ 
tion  to  the  common  plan  types.  This  feature  is  particularly  useful  and  expeditious  when  sequen¬ 
tial  sampling  plans  are  truncated  or  when  multiple  sampling  plans  with  variable  inaemental 
sample  sizes  are  to  be  evaluated.  In  short,  LAVAS  can  be  effectively  used  to  precisely  construct 
OC  curves  and  ASN  plots  for  any  attribute  sampling  plan.  LAVAS  also  includes  selected  design 
algorithms  which  will  aid  the  user  in  deriving  attributes  sampling  plans  which  are  constrained  at 
specified  risk  levels.  These  design  features  also  include  provisions  set  forth  in  MIL->STD-10SD 
in  that  risk  design  thresholds  can  be  provided  as  input  and  MILr-STD-105D  sampling  plans, 
which  meet  the  inputted  risk  thresholds  will  be  specified  as  ouq>ut.  In  conclusion,  LAVAS  can 
be  viewed  as  a  sampling  plan  design  aid  and  an  extensive,  precise  sampling  plan  risk  assessor. 

Future  efforts  to  enhance  the  methodology  automated  in  LAVAS  are  envisioned  to  be 
focused  on  two  areas.  First,  faster  execution  is  desirable.  To  that  end,  faster  techniques  will  be 
researched  to  perform  the  factorial  ratios  required  for  both  the  Binomial  and  the  Hypergeometric 
distributions.  Additionally,  a  design  feature  is  desired  which  will  aid  in  the  derivation  of  tailor 
made  multiple  sampling  plans  with  variable  incremental  sample  sizes  which  will  allow  the  user 
to  constrain  the  total  number  sampled  at  specified  risk  levels. 
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appendix  a 

LAVAS’s  SOURCE  CODE 
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BATA 

■  79', 

•  70-, 

,-  77-, 

,-  TO*. 

.-  TO-, 

,-  **-, 

,*  01-, 

02-, 

■  03', 

04-, 

j  ■ 

05-, 

^  • 

a 

O-,’ 

*7',- 

**•.• 

09-,- 

**-,- 

*1*.* 

*2-,- 

*4-,- 

*5-.' 

97-,- 

■  • 

• 

33 

• 

90 

BATA 

•1***, 

■  **, 

,-444- 

100 

FOR 

l4l  TO 

1*2 

no 

REAB 

Nua«<] 

11 

120  NEXT  I 

130  ICER 

140  FOR  1«1  TO  31 

190  FOR  J>l  TO  t 

ISO  RERB  Jac(!,J> 

170  NEXT  : 

100  BEEF 

100  NEXT  1 

200  BATA  0,. 01. .031, .109.. 0*3, 2.303,2.990. 4. 009, 44.0* 

210  BATA  1,. 149,. 333,. 332,1. 070.3.09,4.744,0.03a, 10.940 

220  BATA  2, .430, .010,1. 102,2.074,9.322,0.2*0,0.400, 0.909 

230  BATA  3, .023,1. 300, 1.743,3.072.0.001, 7. 794, 10.043, 4. 09 

240  BATA  4, 1,279,1. *7,2.433,4.071, 7.9*4,*. 134, 11. 003, 4. 097 

290  BATA  9, 1.703, 2.013, 3.1S2,9.07,*.273,I*.51B,13. 100,3.949 

200  BATA  0,2.33,3.200.3.0*9,0.07,10.392,11.042,14.971,3.200 

270  BATA  7, 2. *00,3.901, 4.030,7.009, 11. 771, 13. 140, 10. 2. *97 

200  BATA  0.3. 907, 4. 0*9,9.433.0.00*, 12.9*9,14. 434, 17. 403, 2. 700 

290  BATA  9, 4. 13, 9. 420,0.221, 9.0*9,14.2**, 19.709,10. 703, 3. 011 

300  BATA  1*,4.771,*.1S*,7.*21.1*.***,19.*07,1*.*S2,2*.I49,2.4*7 

310  BATA  11, 9. 420,0.924,7.029,11. 0S*,l*.9**,lt.2**, 21. 49, 2. 397 

320  BATA  12, 0.0*9, 7. 09, 0.040,12.000, 17.702,1*. 442, 32. 021, 2. 312 

330  BATA  13, 0.702, a. 404.9.47, 13.000, t*.*S*,2*.**t, 24.  139,3.24 

340  BATA  14, 7. 477, 9. 240,10.3,14. 000,20.120, 21. 0*0, 29. 440, 2. 177 

390  BATA  19, 0.101,1*. 039, 11. 139, 19.0*0, 21. 2*2, 23. 0*0, 20. 743, 2. 122 

300  BATA  IS, *.**9, 10.031, 11. *70, 10.000, 23.492, 24. 3*3, 2*. *3), 2. *73 

370  BATA  17, 9.010,11. *33, 12. *22, 17.000, 23.0*0, 29. 9, 2*. 31, 2. 02* 

3*0  BATA  10,10.340, 12. 442, 13. 072, 10.0**, 24. 790, 3*. 0*2, 30. 901, 1.9* 

390  BATA  19,11.003, 13.294, 14.929, 19.0*0, 29. 9*3, 27. *79,31. B<9, 1.994 

400  BATA  20,11. *29, 14.072, 19. 3*3,2*. 000, 27. 049, 2*. *02, 33. 103, 1 . 922 

410  BATA  21, 12. 974, 14. 094, 10.344, 21. SOB, 2*. 104, 3*. 241, 34. 399, 1.0*2 

420  BATA  22, 13. 329, 19. 719, 17. 100,32.000, 2*. 32, 31. 410,  39. 001, 1.009 

43*  BATA  23,14,00*, 10. 940, 17. *79,2*.***, 3*. 493, 32. 900, 3*. *41, 1.04 

440  BATA  34, 14. *93, 17. 3*2, 10.044,24. 000, 31.9*4, 33. 792, 3*. 077, 1.01 7 

490  BATA  29,19.023, 10.31*, 19.717,29.007,33. 71 1 , 34.  *1*.  3*. 300, 1 . 7*9 

400  BATA  3*,19.932,22.4*4,34.113,3*.OS7,2t.319.4*.0*,49.4,1.7B7 

47*  BATA  39, 33. 929, 30. 731, 30.990, 39.007,43. *73, 40. 4*4, 91. 409, 1.041 

400  BATA  40,27.St7,31.*00,33.*30,4*.S*7,4*.9*,93.*S*,97.347, 1.9* 

490  BATA  49,91.704,39.441,97.99*,49.SS7,94.07t,97.C*9,S3.231,1.94* 

900  BATA  90, 39.007, 39. *4*,43.0t*,9*.C07,Ct. 339, S3. 207, 09.000, 1.919 

910  FOR  l4l  TO  2 

920  IF  l4l  TNEN  Lla-IC 

930  IF  142  TNEN  L<aal7 

940  FOR  J4|  TO  L(a 

990  FOR  Ka|  TO  a 

900  REAB  Cc«a<I,J,K> 

970  NEXT  K 

9*0  NEXT  J 

990  BEEF 

000  NEXT  1 

010  FOR  lal  TO  10 

020  REAB  Ana<l,l>,nMa<l,3>,linr<l,l>,nnp<I,2> 

030  NEXT  1 

040  FOR  l4l  TO  IS 

090  REAB  niU<I> 

000  NEXT  1 

070  BEEF 


<•0  P0T0  1,14.3,0,1,.  10,  .04, 2. 32, 1. 273,2,0.0^,0.*,. 3, 1.0^. 2.42, l.:i! 

e«0  00T0  3, 0.40, I, 3,. 0,1. 0,3. 09, 1.230,4,3.30, 0,3,. 40,1.35, 2. 04, 1.77 1,5, 5. 03. I, 

4,  77,1.07,3.02,1.330 

700  DATA  0,4. 31, 0,4,.  00,  1.04,2.03,1.005,7,4.  10, 1 ,5, . 00,2.  10, 4. 02,  1 . 408, 8,  3. 0,  I 
,0,  1.  10,2.44,4.  17,  1.040,0,3.20,2,0.1.00,3.20.5.47,1.470 

710  ®AT0  10,2.00,3,  10,2.27,4.  1 3, 0. 72, 1 . 300, 1 1 . 2. 77, 3,  1 1 , 2. 40, 4 . 30, 0. 82 , 1.408, 1 

2,2.02.4,13,3.07,3.21,8.03.1.304,13,2.40,4,14,3.20,5.4,0.11,1.472 

720  DATA  14,2.21,3,13,3.41,3.4,7.55, 1.000, 15.1. 0T.0.2A.0.T5, 7. 02, 0.35, 2. 020, 10 
,1.74, 0,30, 7. 43, 10. 31. 12. 00,2.23 

730  DATA  1,1 1.0, 0,1,. 21, 1,2. 3, 1.17, 2, 7. 54, 1,2,. 32, 1.02, 3. 02, 1.081, 3, 0.70. 0,2,. 

43, 1.42, 2. 00, 1.34, 4, 3. 30, 1,3,. 70, 2. 11, 4. 11, 1.100, 5, 4. 05, 2, 4, 1.1 0,2. 0,3. 30, 1.1 05 
740  DATA  0,4.23,1,4,1.04,2.3,4.42.1.274,7,3.00.2,3,1.43,3.2,5.55, 1. 17,8,3.03,3 
,0,1.07,3.00,0.70, 1.117.0.3.30,2,0, 1.72,3.50,3,02,1.240 
730  DATA  10,3.21,3,7,2.13,4.27,0.01,1.173,11,3.00,4,0.2.02,5.02,1 
.05, 4, 0,2. 0,3. 33, 0.20, 1.107, 13, 2. 0,5, 11,3,00,0.4,0.50,1.100 
700  DATA  14,2.44,3,12,4,0.73,0.77,1.213,13,2.32,5,13,4.35,7.00, 10.28,1.271,10, 
2.22,3.14,4.7,7,32,10.43,1.331,17,2.12.3,10,5.30,0.4,11.41,1.432  .... 

770  DATA  0,1, 2, 2, 0,3, 3, 4, 1.4, 4, 3,2,0, 5. 7, 3, 0,7, 0,3, 11, 7, 12, 5, 12,0,. 3, 0,15, 10,1 

0,7,10,11,10,0,23.14,24,11,20,10,27,13,34,20,33,13,34,20,33,17,37,22,38 

700  DATA  23,32,20,33,23,30,31,37 

DATA  2,3,3,0,13,20,32,30,00,123,200,313,500,000,1250,2000 
DATA  2,3,3.0,13,20,32,50,00,123,200,313,300,000,1250,2000,3150 
DATA  1,2,3,3,7.0,10,13.14,10.21.27.30,41,44 

DATA  1,10. 40, -3. >3, 0,0, 1,2, 3, 100, 100 
DATA  2,2,2,2,3,4,4,100.108 
DATA  .040, .30, .00, 3. 243 
DATA  2, 12. 13, -5, -3, -3, 0,0, 1,2, 100, 100 

DATA  2,2.2,2,2.3,3,100.100 
DATA  .003,. 31, .70, 4. 373 
DATA  3. 0.03, *3, >3. 0,0, 1,2,4,100,100 
DATA  2,2,2,3,3,4,3,100,100 
DATA  .1,. 43,1, 3. 401 

DATA  4, 0.01, *3, >3, 0,0, 0,0, 0,2, 100, 2, 2, 2, 2, 2, 3, 3, 3, 100,. 000,. 34,. 78, 3. 870 
DATA  3, 0.00, *3, >3, 0,0, 0,0, 0,1, 2. 2, 2, 2, 3, 3, 3, 3, 3, 3,. 003,. 30,. 73, 4. 077 
DATA  0,7. 04, -3, 0,0, 1,1, 1,2, 3, 100, 2, 3. 3,3,4,4,4,4,100,. 10,. 02, 1.27, 2. 828 
DATA  7, 0.20, *3. 0,1, 1,2, 3, 4, 100, 100, 2, 3.3, 3, 4, 3, 3, 100, 100,. 24,. 74, 1.48, 2. 51 

DATA  0,4. 08, -3, 0,1, 2, 4, 4, 5. 100, 100, 2, 3.4,5, 0.0, 0,100, 100,. 31,. 04,1. >3, 2. 00 

DATA  0,4.01,>5,0,0, 1,2,3,4,0,1C0,3,3,4,4,5,0,7,7.100..31,.78, 1.43,3.208 
DATA  10,4.20,0,2,3,3,7,0,10, 100,100,4,3,7,0,10, 11, 11, 100, 100,. 03, 1.73, 2. 03 

ll,4.02,-3, 1,2,3,4,0,7,100,100,3,4,3,0,0,0,0, 100, 100,. 47, 1.14,1.80,2. 

12, 3. 75, -S, 1, 1,2, 3, 3. 7, 100, 100, 3.4, 3, «, 0,0,0, 100, 100,. 30, 1.23, 2. 11,2. 

13, 3. 30, >3, 1.1, 3, 4, 3, 7,0. 100, 3.3,0,7,0,0,10, 10, 100,. 50, 1.20, 2. 10, 2. 87 


700 
000 
010 
020 
030 
040 
030 
000 
070 
000 
000 
000 
010 
020 
030 
940 
3 

930 
0 

900 
078 
,1.727 
000  DATA 

300 

908  DATA 

830 

1000  DATA 


1010  DATA  14,3.23,0,2,3,4,0,0,11,100,100,4,3,0,0,10, 12, 12, 100, 100,. 00, 1.02, 3. 10 

,2.210 

1020  DATA  13,3.03,0,3,0,0.10,12,14,100,100,4,7,0,11,12,14,13,100,108,1.2,2.34,3 
.04,1.001 

1030  DATA  10,2.00,1,3,0,0,11,14,17,100.100,3,7,10,13,13,10,18,100,100,1.50,2.75 
,4.20,1.030 

1040  DATA  17,2.34,1,3,0,0,13,10,10,100,100,3,0,11,13,10.10,10,100,100,1.08.2.83 
,4.00,1.011 

1030  DATA  10,2.33,1,3,7,10,13,17,22,100,100,0.9,12,10,10,21,23, 100, 100,2.00,3.3 
4,4.70,1.002 

1000  DATA  10,2.10,1,3,0,13.18.22,23,100,100,7,10,13,10,22,23,20,100,100,2.40,3. 
77,3.10,2.130 

1070  DATA  20,1.94,3,0,13,10,24,30,30,100,100,0,19,20,29,30,34,37, 100,100,3.74,3 
.40,7.20,1.907 

1000  DATA  -9,-9. 0,0, 1,1, 2, 2, 2, 2, 3, 3,3,3 
1090  DATA  -3, 0,0, 1.2, 3, 4, 2, 3, 3. 4, 4, 9, 3 
1100  DATA  -9, 0,1, 2, 3, 4, 0,3, 3, 4, 3, 0,0, 7 
1110  DATA  •9,1,2,3,9,7,9,4,9,0,7,0,9,10 
1120  DATA  0,1,3,9,7,10,13,4,0,8,10,11,12,14 
1130  DATA  0,2,4,0,9,12,14,4,7,9,11.12,14,13 
1140  DATA  0,3.0,0,11,14,18,5,8,10.13,15,17,19 
1150  DATA  0,3,7,10,14,10,21,0,9.12,15,17,20,22 
1100  DATA  1.4,0,12,17,21,23,7,10,13.17,20,23.20 
1170  DATA  1,0,11,10,22,27,32,0,12,17.22,23,29.33 
1188  DATA  2,7,13,19,29,31,37,9,14.19,29,29,33,38 
1190  DATA  3,10,17,24,32,40,40,10,17,24,31,37,43,49 
1200  DATA  4.11,10,27,30,49,33,12,19.27,34,40,47,34 


121t  SMTA  (,1C,2(,37,49.C1.72.I9,2S.3C,4C,SS,C4,73 

1226  BATA  C, 17,29, 4e, S3, <9.77, 1C, 27, 39,49, St, CB,7B 

1236  DATA  2, 3, 4, 9. <, 7,6,9, It, 1 1 , 12, 13, 14, IS, 16, 26,24, 32, 36, 48, 96 

1246  FOB  I«1  TO  17 

1296  ACAB  tltSXl) 

1266  NEXT  I 
1276  FOB  I«1  TO  IS 
1266  BEAD  tltSc<I> 

1296  NEXT  1 
1366  BEEF 
1316  FOB  lal  TO  26 
1326  FOB  J>1  TO  24 
1336  BEAD  C<at<I,J) 

1346  NEXT  3 

1396  BEEF 

1366  BISF 

1376  NEXT  1 

1366  FOB  !•!  TO  IS 

1396  FOB  3«1  TO  7 

1406  BEAB  n*BlAr<i,J,l> 

1416  NEXT  3 

1426  FOB  3«1  TO  7 

1436  BEAD  N*Bl<r(l, J.2> 

1446  NEXT  3 

1496  BEEF 

1466  NEXT  1 

1476  FOB  t«l  TO  21 

1466  BEAD  H4pl«n<!> 


1496 

NEXT  1 

1966 

BEEF 

1916 

BItF 

1926 

BItF  • 

1936 

m 

BItF  * 

1946 

BItF  • 

LOT  ACCEFTANCE  SAHFLINC  OFTIONS 

test 

BItF  • 

Oetlen  Staerfstton  t*l4Ct 

_£Sdt 

1966 

BItF  • 

>tlngt«  taapHng  D**<6n  And  Attetaaent . 

1 

1976 

BItF  • 

>04Ubl4  Smapltng  Btaign  And  A(*«»»P4nt . 

2 

1966 

BItF  • 

>Hg1ilpl4  taapling  Bttign  And  A»4«44»tnt . 

3 

1996 

BItF  ’ 

>ttqu«net4l  Cupling  Dvitgn  And  As»tt»Btnt . 

4 

tC66 

BItF  * 

>Trgnc4t«d  (MpHrtg  or  Arty  Cpnvor^tr.x 

Kit 

BItF  • 

Aoft«i»oont<ip«4»  OC  Curvt  ^  ASM  Curvt> . 

5 

IC26 

BItF  • 

>ProgrM  Toroinot  f  on.  . . . . . . . 

C 

K3t 

BItF  • 

1C46 

BItF 

KS6 

BItF  ’ENTEB  THE  SELECT  COBE  OF  THE  3ESIBEE  OFVION. ’ 

1«6 

BItF 

1C76 

BEEF 

K66 

INFUT  tc 

K9t 

IF  tc>< 

THEN  BISF 

1766 

IF  Scat 

THEN  BItF  'Bp.  By*!* 

1716 

IF  tc>< 

then  BISF 

1726 

IF  Scat 

THEN  BEEF 

1736 

IF  teat 

THEN  STOF 

1746 

BItF 

1796 

BItF  ■ 

loading  selected  optioni 

17<6 

BItF 

1776 

IF  teat 

THEN  LINK  ''$1ng1«:Cl2*g2SS0 

1766 

IF  tCa2 

THEN  LINK  ‘Beubl.lCtS'.BBtB 

1796 

IF  tea3 

THEN  LINK  *nuU«  :CI2',26BB 

1666 

IF  9ea4 

THEN  LINK  ■S*qu.:CI2*,2BBB 

1616 

IF  teas 

THEN  LINK  *Sp«€:Ct2*g20eS 

1626 

IF  <ScaU  OB  (tca3>  OB  <tea3>  OR  (Sca4>  OB  <ScaS>  THEN  19ce 

1636 

FOB  laj 

TO  11 

1646 

Bit* 

-3 


lase  Bisp  ■ 
itae  oisp  ■ 

l«7a  9ISP  ■ 
t«M  SISP 
isaa  Disp  ‘ 

>«ae  Bisp  * 
laia  Bisp  ■ 
laaa  bisp 
lasa  BEEP 
t94s  INPUT  aa 

lasa  GOTO  isia 
laaa  cosub  aaaa 

1970  STOP 


APPENDIX  B 

SINGLE  SAMPLING  DESIGN  AND  ASSESSMENT  SOURCE  CODE 


APPENDIX  B 

SINGLE  SAMPLING  DESIGN  AND  ASSESSMENT  SOURCE  CODE 


3En  ••••  SINGLE  SNn7LE  BESICN  NNS^OE  3ISK 

NSSESSHEHT  osoo 

silt 

3137 

262* 

3137  • 

* 

2I3I 

3137  •  >  3tngl<  3«a7llng  71an  Option  Htnu 

< 

2MI 

Blip  •  Oatlan  Baaerletten 

toloct  Codo 

2est 

3137  *  >0C  Curua/3t*k  Oosoioaont  for  a  3p«ciric  Plan.. 

2tc* 

3137  *  >P1an  Borlwatlen  for  Gluon  PSL,  LTP3i  3LPNP  i  3ETN...2 

2«7t 

3137  *  >7Ian  Borluatlon  for  a  3lnglo  Point  of  Control 

4t 

2tlt 

3137  *  the  Indifforcnco  Ouallty  IPoiaaon  laaod) . 

2a«« 

2100 

3137  *  dpprOMlaatlon  of  tho  OC  Curuo . 

211* 

3137  *  >7lan  Bor'uatlon  Via  II!L-STB>1SS3  3oarch  for 

212* 

3137  *  3poclft'  AOL,  LT73,  NL7H7,  3  3ETR . 

213* 

3137  *  EXIT  Thia  3ogaont  of  tho  Prograa . 

2143 

3137  • 

• 

2133 

3137  *ENTE3  THE  3ELECT  COOE  OF  THE  0ES13EB  07T10H.  * 

2t<3 

3137 

2173 

BEE7 

2133 

1N7UT  3« 

2133 

IF  3c«3  THEN  3CTU3H 

2233 

IF  3C<>1  THEN  4330 

2213 

3137 

2223 

3137  •  CHTE3  THE  33H7LE  3IZEI* 

2233 

3137 

2243 

3EE7 

2233 

1H7MT  3aa7lo 

2233 

3137 

2273 

3137  *  EHTE3  THE  THE  HCCE7TnHCE  HUn3E7>‘ 

2233 

3137 

2233 

3ES7 

2333 

1H7UT  Hccopt 

2313 

3137 

2323 

Blip  •  BO  VOU  HIVE  7  FINITE  LOT  SIZE?' 

2333 

3137 

2343 

3EE7 

2333 

1H7UT  3o*« 

2333 

IF  3oo7>’HO*  then  3lot>a'3lN0ni7L* 

2373 

IF  BooM'HO*  then  2330 

2900 

3137 

2333 

3137  *  EHTE3  THE  FINITE  LOT  SIZE  ' 

2433 

3137 

2413 

SEE7 

2433 

1H7UT  Loixo 

24ac' 

Rat  1 ooSaap 1 o^Lt 1 xo 

2443 

IF  Ratlo».l  then  BlotX-'HVPER* 

2433 

IF  Ratlo>o.l  THEN  1733 

2433 

3137 

2473 

3137  *Slnco  tho  ratio  of  oaapio  olxo  to  lot  olio  l>  loot  than  ton  porcont. 

2433 

3137  *lt  oaybo  accoptaOlo  to  uoo  a  Sinoolal  Rppr os I aat I  on  to  tho  Hyporgooo 

•trie 

■ 

2433 

3137  *30  VOU  H13H  TO  USE  THIS  n77R0XINnT10H?' 

2333 

3137 

2313 

BEE7 

2323 

1N7UT  Rood 

2333 

IF  Rolo’HO*  THEN  Bl0t3-*HV7ER* 

2343 

IF  RoM'VES*  THEN  3l0tlo*BlH0HlRL* 

2333 

IF  3lot3a*HVPER’  THEN  3730 

2333 

S'Saapto 

2373 

7a. 331 

2333 

CaRcCOpt 

2333 

FOR  XaO  TO  C 

2333 

C0SU3  2333 

2313 

IF  Hag  THEN  PaeptaProb 

2323 

IF  xoa  THEN  PacptaPacpt*7rob 

2030 

NCXT  X 

B-l 


2«4t  IF  F«c»i<.t2  THEN  2tU 
2tS«  Fap*.MJ 
SCU  ICEF 
2<7«  GOTO  29f* 

2«M  REN  tZMOnIHL  SUIROUTINE 

2GM  IF  (|-X<R>  OR  (X<0>  THEN  Preb-R 

27M  IF  (t-H<R>  OR  <)«0>  THEN  RETURN 

2710  IF  <S>X>0>  OR  (X>0>  THEN  Preb>P-X*(l*P>'><S-X> 

2720  IF  «-X*0>  OR  <X«0>  THEN  RETURN 

2730  Prob-I 

2740  FOR  Is-t  TO  X 

2780  Ppeb«Ppeb*P 

2700  NEXT  U 

2770  FOR  I»«I  TO  t-X 

2700  ProbpPpeb*((X*Is>/l«>4<l-P> 

2700  NEXT  It 
2000  RETURN 
2010  Slop 

2020  Stop  *Tht  prebxblliiy  of  Rcc4pi«nct  (b  *SP4C0t«100; *X  bt  Percent  Stfvttiw* 
■ 

2030  Stop  ■•qubl  tb  ‘tP^lOOi'X. * 

2040  BIOP 

2080  BtOP  *Uhbt  Pxnat  do  you  wont  Ts  Includ*  on  the  OC  Cupwt'b  P*PC4nt  8»f4Ct<w 
•  RxIaO* 

2TOO  BI8P  *TN*  •ntpy  aust  b*  statad  ad  a  04Pcant<t.a.,  Fifty  pdreant'd  tntry  i 
d  80>.* 

7.070  SISP 
2000  BEEP 
2000  INPUT  Naxx 
2000  llaxx>Naxx«l 
2010  BlOP 

2030  BlOP  ‘ENTER  THE  BEOIREB  LRBEL1N6  INTERVRL  ON  THE  PERCENT  BEFECTIVE  RXIS. ‘ 
2030  BISP  *Tha  tntpy  audi  ba  dtatad  aa  a  pfrcant<I.a.>  flva  parcent'a  tntry  ta 
8>.* 

2040  BlOP 
2080  BEEP 
2000  INPUT  X<n« 

2070  IncdHaxxPlOO 
2000  FOR  !■!  TO  100 
2000  Pd<l)dlalR« 

8000  PaPd(t>/100 

3010  CaRccapt 

3020  faOaapta 

3030  FOR  XaO  TO  C 

3040  GOSUB  2000 

3080  IF  KaO  THEN  Pa<t,I>aPpab 

3000  IF  XOO  then  Pa<ti  l>aPpab*Pa<l,  1> 

3070  NEXT  X 
3000  NEXT  I 
3000  LlaalOO 
3100  608UB  4040 

3110  Stop 

3120  BlOP  ‘BO  YOU  NRNT  RNY  SPECIFIC  POINTS  PRINTEBT* 

3130  BlOP 

3140  BEEP 

3180  INPUT  RaO 

3100  IF  Rada'NO*  TNEN  2010 

3170  PRINT  LlN(4>;8PH(10>i*Opapat1ng  ChaPactarlatlt  <0C>  Curwa  * 

3100  PRINT  SPR(10>: ‘Slngla  taapMng  Plan  1  n  a  •••Saapla  *1*  b  C  a  ‘iRccapt 
3100  PRINT  SPR<l7):*<Blnaala1  Blatrlbutlan  Ppebabnittaal'lLINd) 

3200  PRINT  USING  3380 
3210  PRINT  USING  3240 
3220  PRINT  USING  3280 
3230  PRINT  USING  3380 

3240  IHRGE  20X, ‘I  Parcant  |  Prabablllty  |* 

3280  IHRGE  *,30X, •  iBafact Iwa |of  R«aptanca|* 

3280  IHRGE  «X-‘  .....  jjL  • 

3270  INRGE  *,20X, * | ‘,48.48, • | ‘,08.48, ‘ | * 

3300  BlOP 

3200  BlOP  ‘ENTER  THE  PERCENT  OEFECTIVE . ‘ 

3300  BtOP 
3310  BEEP 
3330  INPUT  P 
3330  PaP/'lOS 
3340  FOR  XaO  TO  C 
3380  GOtUB  2800 
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)3(t  IF  X«*  THEN  Facpt-Freb 
337E  IF  «<>•  THEN  FacbT>Frob*F«:pt 
3333  NEXT  X 

3333  FRINT  U31H6  3373:F*133,F4:Ft«t33 
3433  FRINT  USINC  33(3 
3413  SISF 

3433  8ISF  *  30  VOU  HHNT  RN'^ORET  • 

3433  BItF 
3443  lEEF 
3433  INPUT  Rt« 

34(3  IF  RtM'NO*  TNEN  3313 
3473  GOTO  3333 

3433  REN  HVPERCEOHETRie  BISTRIIUTION 

3433  IF  X<3  then  Pre»>3 

3333  IF  X<3  TNEN  RETURN 

3313  IF  X>R  THEN  Fre»>3 

3333  IF  X>H  TNEN  RETURN 

3333  Preb*! 

3343  rtl)»K 

3333  F<3»N*K 

33(3  F<3>«H 

3373  F<4)«N-H 

3333  F<3>*X 

3333  P<(»X-X 

3(33  F<7»«H-X 

3(13  F<3>«N>K*N*X 

3(33  F<3»N 

3(33  FOR  Iial  TO  3 

3(43  IF  FCltXl  THEN  F(ls>«l 

3(33  NEXT  U 

3((3  Pr'0b«Preb*F(l>«F(3>*F<3>**;4>x<F<3>*F<(>*FC7>4F<3>*F(3>> 

3(73  FOR  1»«1  TO  3 

3(33  F<U>aF<l«>-l 

3(33  IF  F<1«><1  THEN  F<lkl«l 

3733  NEXT  l4 

3713  Ck«3 

3733  FOR  lt«l  TO  3 

3733  IF  F(1«>«1  TNEN  3733 

3743  Ckal 

3733  NEXT  It 

37(3  IF  Ck«3  THEN  RETURN 

3773  GOTO  3((3 

3733  RETURN 

3733  H«tbbpl4 

3333  K>1 

3(13  CaRcccbt 
3(33  N>l.*4l« 

3333  FOR  X<3  TO  C 

3(43  GOSUI  3433 

3(93  IF  X«S  TNEN  PbCFi'Preb 

33(3  IF  X<>(  THEN  PtcFtBP«cpt«F*9b 

3(73  IF  P«t»t>l  THEN  F«cpt«I 

33(3  NEXT  X 

3(93  81SP  *K«*|K:*  <t  Bent  I  P«>':PMRt 

39(3  IF  P«:p«.3a  THEN  3943 

3913  K>K*1 

3933  BEEP 

3933  GOTO  3(33 

3943  BKP 

3993  8I9P  ‘The  prebabHlty  of  *::ebtence  It  ’;P4eptel((; *3  for  *;k;  "Berectlvci* 
39(3  BKP  ‘In  the  let.’ 

3973  BKP 

39(3  BKP  ‘Xhet  range  4e  yew  wa't  te  Include  en  the  OC  Curve't  Btfeetlvet  Per  L 
et  NkU?* 

3993  BKP  ‘The  entry  autt  be  tttted  as  aa  Integer. 

• 

43(3  BKP 
4(13  BEEP 

4(33  INPUT  naxx 
4(33  HaNxuRaiiN*! 

4(43  BKP 

4(93  BKP  ’ENTER  THE  SES1RE8  LF.TE.INC  INTERVNL  ON  THE  BEFECTIVES  PER  LOT  NXK.’ 
43(3  BKP  ’The  entry  autt  be  stated  as  aa  Integer. 

• 

4g7(  BKP 
4333  BEEP 
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4aM  INPUT  K<nt 

4tM  IP  n4M>lM  THIN  LU-IH 

4n«  IP  HaxXIM  THIN  Lim^HiaitK 

4ia«  FOR  !■!  TO  L«4 

41M  PO<l>«l 

4140  K«Pd<t> 

4190  C^Rcctpi 
41C0  N>L4<I« 

4170  0«taaplt 

4100  FOR  N-0  TO  C 

4190  COtUO  9400 

4200  IF  N-O  THIN  P4<1, 1  laPr-ob 

4210  IF  XOO  thin  P4<l.l>«Preb*F4<l,l> 

4220  IF  P«C1,I>>1  THIN  Pa<l,l>«l 
4290  HINT  K 

4240  9ltP  'Uorktd  K  ■  *iK 
4290  HINT  I 
4200  eoouo  4040 
4270  aitP 

4200  BIOP  *B0  YOU  HRNT  RMY  SPICIFIC  POINTS  PRIHTIB?* 

4290  BItP 

4900  Blip 

4910  INPUT  R»0 

4920  IP  R4S«*H0*  TNIH  2010 

4990  PRINT  LIH<4>;tPR(10)i*0p«r«t<ng  CNaracttrlatic  (0C>  Curw*  * 

4940  PRINT  SPN<l2):'S4ngl4  Sbaptlng  Plan  :  n  ■  “ISaapU;*  a  C  •  'IRccapt 

4990  PRINT  0PR<14>; 'INvipargaonatrlc  Blainibuttan  Prebabil<t<at>*il.tN(l> 

4900  print  using  4420 

4970  PRINT  USING  4400 

4900  PRINT  USING  4410 

4990  PRINT  USING  4420 

4400  IHRGC  20N.*|BaF«cllwa4(  PrababllUy  |* 

4410  INRGI  «(20N(*|  Ptr  1.04  |aF  Rccoptanc*)* 

4420  INRGI  20N.»  * 

4490  INRGI  ♦, 20x'i'“  Pi  1n"« ol', IX,  *  |  ^ , *4. 4B,  •  |  • 

4440  Blip 

4490  aiSP  ‘INTIR  TNI  NUNBIR  OF  BIFICTIVIS  PIR  LOT....* 

4400  BISP 

4470  Blip 

4400  INPUT  K 

4490  FOR  XOO  TO  C 

4900  COSUB  9400 

4910  IF  XoO  thin  PacptaPreb 

4920  IF  XOO  TNIN  FacptoPreboPacpi 

4990  IF  Pacptll  THIN  Pacpiol 

4940  NSXT  K 

4990  PRINT  USING  4490;K,Pacptol00 
4900  PRINT  USING  4420 
4970  BISP 

4900  BISP  *  BO  YOU  NRNT  RNVH0RI7 

4990  BISP 

4000  BISP 

4010  INPUT  RaO 

4020  IF  RfOn'NO*  TNIN  20 

4090  COTO  4440 

4040  RIH  OC  CURVI 

4090  PLOTTIR  IS  *9S72: 

4000  PLOTTIR  7,9  IS  Of' 

4070  LOCRTI  10,100,10,104! 

4000  SCRLI  0,naxx,0,l04 
4090  CSUI  2 

4700  LRXIS  X<nt,S,0,0,>l,l 
4710  NOVI  2oX«nt,101 

4720  LRBEL  *  Oporating  CNaractorlpt Ic  Curve* 

4790  LRBEL  *Saaple  Sixei *:Sanp1e; *Rccapxan<e  Nunber:*;C 

4740  IF  a<»t«>'NYPIR*  THEN  LRBEL  *  Nyporgoenotrlc  PrebabI 1 Ulea* 

4790  IF  Blptfn*IINOniRL*  TNIH  LRBEL  *  Blnealal  PrebabI 1 U<e»* 

4700  PEN  2 

4770  HOVE  0,100 

4700  FOR  I«1  TO  LI  a 

4790  BRRN  P0< I >,Pa< 1, I >*100 

4000  NEXT  I 


4010  PEN  1 

4090  ?Fiu*J-*BIMNIRL*  THEN  LRBEL  *PEReEHT  ««CT1VE* 
*M  IF  BImO-*HVFER*  then  LRBEL  *BEFECTIVES  PER  LOT* 
4090  ROVE  Xlntx4,101 
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4Kt 

4t7l 

4tt« 

4t«I 

49e« 

49l« 

492* 

4939 

4949 

4999 

4999 

4979 

4999 

4999 

9999 

9919 

9929 

9939 

9949 

9999 

9999 

9979 

9999 

99*9 

9199 

9119 

9129 

9139 

9149 

9199 

9199 

9179 

9199 

91*9 

9299 


LHICL  ‘rAfK)’ 

HOVC  129,129 
9CTU9N 

IF  Sc<>3  THEN  9229 

REH  Folnt  of  Control  ot  IndlfForonc*  Ouollty 

aiSF 

9ICF  •  ENTER  THE  INBIFFERENCE  OURLITV....’ 

BlfF  ■  ENTER  THIS  FERCENT  9EFECTIVE  RS  R  FERCENT. 

81  tF 
BEEF 

INFUT  F99p 
F98p>F9Bpxl99 

FOR  C-B  TO  99 

R4n<C«l»(C*.*7)/F99p 

Ck«INT(Ron<C*l>) 

IF  Rsn<l>>Ck  THEN  Rsn<l>aCk*l 

Fa(9,C*l»C 

NEXT  C 

INRCE  29X,*9inglo  Banpla  toopling  Fiona* 

INRGE  29X.*For  Rn  Indlfforonco  OuolUy  of  ‘.3B.2B,*X* 

IRRCE  19X,‘ 

INRCE  19N,*| 

INRCE  19X,- 


taapio 

Rceoptanca 

taapi* 

Reetpt anct 

taapi a 

Rcc opt anct 

tizo 

Nunbor 

tIzo 

NuBb*r 

tizo 

Nu»btr 

INRCE  ♦,19X,*X*,3<ix,4B,lX,*|*,3X,4B,3X,*l-> 

FRINT  LIN(4> 

PRINT  U9IHC  9949 
FRINT  UtINC  9999iF99p4199 
FRINT  U9INC  9999 
FRINT  UtINC  9979 
FRINT  UtINC  9999 
FOR  !■!  TO  17 

PRINT  UtINC  99*tiRan<l>,Fo<9.t>,Ran<I*17>,Fo(9.1*17>,Ran(l*34>,F4(9,l*t4> 
PRINT  UtINC  9999 
NEXT  I 

PRINT  I.IN<2>StFR<19>:*Rny  of  ttioao  plana  can  Pt  owaluatcd  by  aacrcUing  Op 
tian  *l*tLIH<4> 

9219  CPTO  2919 

9229  IF  Cc<>4  THEN  9999 

9239  BltF 

9249  BltF  *  80  YOU  NRVE  R  OURLITV  LEVEL  RT  UHICH  YOU  UltM  R  **X,  *9%,  *9X,  99X 
,  I9X  * 

9299  BltF  *  92  OR  IX  FROBRBILITY  OF  RCCEFTRNCE. 

■ 

9299  8I9F 
9279  BEEF 
9299  INFUT  R« 

92*9  IF  R9>*H0*  THEN  9799 
9399  BltF 

9319  BltF  ’  ENTER  THE  OURLITV  LEVEL  RNB  THE  FROBRBILITV  OF  RCCEFTRNCE  RT  THRT 


9329  BltF  *  OURLITV  LEVEL.  BOTH  ENTRIEt  HUtT  BE  tTRTEB  Rt  FERCENTt. 

■ 

9330  BEEF 

9340  INPUT  Fort.Fofa 
9399  FoPtoFort/199 
9399  FafanFofa^lOO 
9379  IF  Fofa>.**  THEN  Col>8 

9399  IF  Pof*n.*9  TNEN  Col-3 

93*9  IF  Pofa-.*  then  C*ln4 
9499  IF  Fofa-.99  THEN  Co1>9 

9419  IF  Pofan.l  THEN  Col-* 

9429  IF  Fora>.99  THEN  Col'T 

9439  IF  Fofaa.91  THEN  C*t>9 

9449  FRINT  L1NC4> 

9499  INRCE  29X,*t4nglo  Oaapio  tanpling  Plana* 

9499  INRCE  39X,*J.N.  Canoron'a  Folaaon  Rpproal oat  Iona* 

9479  INRCE  17X, *UNoro  TNo  Probability  of  Rceoptanco  la*,3B.2B, *X' 

9499  INRCE  l*X,*Hhon  TNo  Foreont  Bofoctivo  la  *,38.28, *X*, r 
94*9  PRINT  U91NC  9499 

9999  INRCE  *  _ 

9919  INRCE  *  I Foreont  Bofcetlw*  tpoc If Icat I ena  For  Nhlth  Tho 

Folaaon  |* 

9929  INRCE  * _ 
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m»  IMIGE  *|t«BpU|ftcc*pt«nctl 
Tiiict  ■!  tti«  I  Mu«bT  I 
IX, •I", 4 


Bf  th«  Prob 


of  Xce»»t«n 


Thhci  ♦,•|•,lx,o»,lx,•|■,ox,aB,4x, •|•,7<4^.a#,•|*> 

BtlNT  UStHC  S4(t 

P«{NT  USING  S47tiPef«*ltS 

PRINT  USING  94SS;Ptrl«lSS 

PRINT  USING  S9SS 

PRINT  USING  9919 

PRINT  USING  9939 

PRINT  USING  9949 

FOR  !■!  TO  31 

F<3>«3BC<l,t> 

SoaaJac ( I , Cel i^Ptrx 
CkoINTtSeal 

IF  SealCk  THEN  SeeoCk*] 

F<I>>S«b 

F<a>>3ac<l,l) 

FOR  J>a  TO  9 
F<J*l>«1994Jee<I,Jl^Su 
NEXT  J 

PRINT  USING  99S9:F<ll,F<a),F<31,F<41,F<S>.F(S>,F<7>,F<9>.F(9> 
PRINT  USING  SSaS 
NEXT  I 


PRINT  LIN<aiSSPA<19>; *Rny  of  theet  plena  can  be  evelueted  by  exercialno  Op 
tion  91*|LIH<4) 

9779  GOTO  3919 
9799  OISP 

9799  BISP  *  TO  EXERCISE  THIS  OPTION,  YOU  NUST  ENTER  ONE  OF  THE  OPTIONAL  POINT 

S  SPECIFIESI* 

9999  aiSP 
9919  SEEP 

9939  SISP  •  TRY  AGAINI  • 

9939  SEEP 

9949  GOTO  3919 

9999  IF  Sc<>3  TNEN  9919 

9999  SISP 

9979  FOR  lei  TO  S 

ENT*  •*  ***  ****  *  '**•  "*«*p***'»  Ouellty  Level,  STATES  AS  A  PBRC 

then  SISP  •  Enter  the  Lot  Tolerance  Percent  Sefectlve, STATES  AS 

A  PERCENT)  • 

9999  IF  Ie3  THEN  BISP  •  Enter  the  Producer 'a  Riak, STATES  AS  A  PERCENT  I  • 

9919  IF  Ie4  THEN  BISP  •  Enter  the  Conauoer'a  RIak, STATES  AS  A  PERCENT)  • 

9939  IF  leS  TNEN  BISP  •  Enter  the  Producer's  Risk  Tolerance  Halt, STATES  AS 

A  PERCENT)  • 

IF  1*9  TNEN  SISP  ■  Enter  the  Consuaer's  Risk  Tolerance  Halt, STATES  AS 
A  PERCENT)  ■ 

9949  SISP 
9999  SEEP 

9999  IF  !■!  THEN  INPUT  Aql 
9979  IF  I>a  THEN  INPUT  Ltpd 
9999  IF  Ie3  TNEN  INPUT  Alpha 
9999  IF  Ie4  THEN  INPUT  Seta 
9999  IF  l>S  THEN  INPUT  Atol 
9919  IF  >9  TNEN  INPUT  Stol 
9939  NEXT  I 
9939  ARleAql/199 
9949  LtpdeLtpd^l99 
9999  AlphaaAlpharl99 
9999  BetaeSeta''l99 
9979  Stel*Btolxl99 
9999  Ate1eAtol^l99 
9999  Prlnto9 
9199  Haanel999999 
9119  BISP 

9139  BISP  *  80  YOU  NAVE  A  AAXIHUH  SAHPLE  S13E7 

9139  BISP 

9149  BEEP 

9199  INPUT  Rea 

9199  IF  ReOe'NO*  THEN  9339 

9179  BISP 

9199  BISP  *  ENTER  THE  HAXINUH  SAHPLE  SIZE’ 

9199  BISP 
9399  BEEP 
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C21t  INruT  Hkxn 

C22t  IHMC  ^1^1  ^1  12X, *0#t t«n«l  tingl*  txapHng  Plan*  Uhich  * 

(23t  IHRSC  llX,‘Predut*r'«  Risk  ■  ‘.3S.2B, ***,  3S.2B,  lex,  *Cen»ua«r'»  Iti* 

k  •  •,3B.2B,*«‘,3B.2B,«SC,/,lBX,-For  Aai.>*, 3B. 2B. 'X  i  LTPB** , 3B. 2B, ‘X* , /> 

C24B  IHBCC  IBX,  ■  _  _ 

C2St  IHKGt  1 tX, *  I SaapI • I Ac c cpt  anc • | Pr oduc  *r ' *  I Centuavr ' » I ' 

C2SB  IHR«  i»X.‘l  Bl«*  Wuabar  I  Riak  I  Xtak  |- 

C27B  INRCC  ♦,IBX,*|‘.«B,’|‘.1'‘.XB.3X,-|*,2X,3B.2B,'X’,IX,-|-2X,3B.2D,"X-.>X,*1- 
C3BB  Blatda'BIHOntRL* 

C2«t  PRINT  USING  S23S 

S3S$  PRINT  USING  S23S;N1pha*ISS.  AtoUlSS,  Bat  *•  lit,  Btel  alBB,  Rql  *ieB,  LtpdaiSS 
f3lB  PRINT  SPR(12>i*<B«neBial  ProPaPI I ttlas)* 

S33t  PRINT  USING  <34t 

S33a  PRINT  USING  <3SS 

S34t  PRINT  USING  <2St 

S3St  RCN  •••••  NOLBINC  RLPNR 

S3SS  CaS 

S37S  Saaplaat 

S3SS  BHP 

S3S1  IP  SaaplOHaxn  THEN  <S2t 
S3SS  PapaWEXP<SaapU«R4t> 

E4SS  Ckal-Pap 
S41S  Ck2«AIpNa-Rte1 
S42S  IF  Ck2<>S  THEN  Ck2a.SaS 
E43S  IP  Ck<Ck2  TNEN  S4ES 
E44E  SaaptfaSaapiP*! 

E4Sa  GOTO  S3SS 

S4d0  IP  Saap1*<10  TNEN  LauaC*l 
E470  IP  SaapItkalS  TNEN  LauaSaapU-10 
S4S0  FOR  SaLeu  TO  Saap1a*t000 
«4S0  PaRRi 
ESSO  Xa# 

ESIO  GOSUB  2SSS 


ES20 

ESSO 

ES40 

ESSO 

ESEO 

ES70 

270;  S 

ESOO 

ES90 

240 

EEOO 

EEIO 

EE20 

EE30 

EE40 

EESO 

EEEO 

EE70 

EEOO 

EE90 

E700 

E710 

E720 

E730 

E740 

E7S0 

E7E0 

E770 

E700 

E790 

EOOO 

EOIO 

E020 

ESSO 

£040 

EOSO 

EOEO 

E070 

EOSO 

EOOO 

EOSO 

EOIO 

E020 


Pnlskai-Ppob 

Paktpd 

XaO 

GOSUB  SEOO 
Cpiakaprao 

IP  (RBSCPplak'RlphaXaRtan  rmB  <RBS<Criak-B4ta><aBie1  > 
iCaPaUk*t00|Cnlsk4100 

IP  <RBS<Pr1sk-Rlpha><aRtel>  RNB  <RBS<Crlak-Bata><aBtel > 
IP  <RBS<Pp<*k>R1pha><aRtol>  NNB  (NBSCCrUk-BttaXaBtel  > 


IP  Crlak<Btta-Bte1a.004  TNEN  ES20 
NEXT  S 

FOR  Cat  TO  SO 

Saapl*aC*t 

IP  Saap1*>Haxn  TNEN  7tl0 
Papa|./EXP<Saap1a*Nql  > 

CuaaPap 

FOR  Paaaat  TO  C 

PapapapaSaapI t«Rq1 ^Paas 
CupaCuaaPap 

IP  Cua>t  TNEN  Cuaal 
NEXT  Paaa 
CkaRlpha 
Pnlakai-Cua 

IP  PpUk<aCk2  TNEN  E700 
SaapI*aSaap1*ai 
IP  Saap1«>na«n  TNEN  7||0 
GOTO  EE40 

IP  SaaplOHaan  TNEN  7tl0 

IP  Saap1*<SS  TNEN  LewaCat 

IP  Saapl«>2S  TNEN  LewaSaap1*>2S 

FOR  SaLaw  TO  Saapl**IOOO 

IP  SkHaan  THEN  7040 

PaRql 

FOR  XaO  TO  C 

COSUB  2SS0 

IP  XaO  then  PrIskaPraO 
IP  XOO  TNEN  PrIskaPrebaPrIak 
IP  Pplakki  THEN  PrUkaj 
NEXT  X 

Pplakal'Ppiak 

PaLtpd 

FOR  XaO  TO  C 


then  print  using  s 

Then  PPIntaPptnial 
Then  print  using  e 
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C»3*  CMUt  a«t« 

<*4«  IF  )(■•  THCN  Cr-ltkaFrob 
C«St  IF  X<>«  THEM  CrUk«Freb*CrUk 
C«M  IF  Cr<»k>l  THCN  CrUk-l 
M7C  NEXT  N 
CfM  ICCF 

S*M  IF  <Mt(Frltk-H1pha><aHteI>  NNB  <niS(Cr(tk-l*t«><>>tel  >  THEN  FblNT  USING  S 
a7b:t.C.FrUk*lM,CrUk*lM 

?•••  IF  <HSt<FrUk-Nlph«><afltel>  HNO  (Alt<Cr<sk-t*t*><attol >  THEN  PKINT  USING  t 

a4s 

7blt  IF  (M$(Frf(k>Hlph«><>Hiel>  AN9  <AfS(Cpt*k>a«t«><«ttol)  THEN  Frini>Fr<nt*l 
7aat  IF  CrUk<ltt«-lteU.U4  THEN  7S4S 
7i3t  NEXT  S 

7143  BISF 

7bSi  BISF  ■  UHILE  HOLBIHG  HLFHH  TO  UlTHIN  ■:Pte)*ieb: 'tk  OF  THE  SFECI 

FICHTIOH, 

7M3  BISF  'BO  YOU  UHNT  TO  CXSHIHC  PLANS  UlTH  AH  ACCEPTANCE  NUHBE*  EQUAL  T0*;C*1 

7S7S  BISF 

7SSS  BEEF 

7SPS  iHfut  bp 

71SS  IF  XPa'HO*  THCN  712S 

7US  NEXT  e 

7taS  BEN  HOLBIHG  BETA  ••••• 

713S  CM 
71 4S  BEEF 
71St  Supl4>i 

71SS  Fap*l'^CXF<S«apl*4Lipd> 

7173  Ck«Fap 

7133  ek3-B4tp>B»el 

7133  IF  Cka<M  THEN  CkBa.SSS 

7333  IF  Ck<Cka  THEN  7343 

7313  S4Bpl4*3«apl4*l 

7333  IF  SaapUMpun  THEN  7433 

7333  GOTO  7133 

7343  IF  SMpl«<lS  then  LM)«C«1 
7333  IF  S4Pplt>al3  THEN  LPH>S«PpU-13 
7333  IF  3*ap1«>H««n  THEN  7433 
7373  FOB  SMow  TO  S«ppU*13 
7333  IF  S>A«xn  THEN  7433 
7333  F-LtpO 
7333  X«3 
7313  GOSUS  3333 
7333  CPUk>Fppb 
7333  F«Aq1 
7343  N>3 
7333  GOSUB  3333 
7333  Fripk«l-Frob 

7373  IF  (AB3<FrUk>A1ph4><Mtet)  AHB 
37S:S,C,Fr«4k*lSS,CPl4k4l3S 
7333  IF  (ABS<FrUk«Alph«7<«Ate)>  ANB 
343 

7333  IF  <AB3<FPtpk-A1phs><Mten  ANB 
7433  IF  FrUk>Alph4*Axe1*.S34  THEN  7433 
7413  NEXT  3 
7433  FOB  C^l  TO  SS 
7433  BEEF 
7443  S4apt«>C*l 
7433  IF  S«apl4>H4i(n  THEN  7333 
74SS  Fap>l-'CXF(Saapl*PL(pO> 

7473  Cua'Fap 
7433  FOB  Fap»>l  TO  C 
7430  Fap*F4p*S«apl4*Ltptf^F«p» 

7833  CuaBCMB«F«p 
7313  IF  CUB>1  then  Cua«l 
7333  NEXT  Faap 
7333  CrUkaCua 
7343  CkaCrltk 
7833  IF  Ck<Ck3  THCN  7333 
7SS3  34*pl**Saapl4*l 
7873  IF  SaaplakHaan  THEN  7333 
7333  GOTO  74SS 
7333  IF  Saapl4<aS  THEN  Lou>C41 
7SS3  IF  8aapl«>3S  THCN  Lo«aSaaplC'2S 
7S1S  FOB  SaLOM  TO  8aapl«*1000 
7S33  IF  S>naxn  THEN  7033 
7S3S  FaLtpO 
7S4S  FOB  XaB  TO  C 


<ABS<Crl»k-3«ta><aBxol)  THEN  FBINT  USING  f 
<ABS<Cr)»k-B««a><aB»o»>  THEN  FBINT  USING  S 
<BB$<Cr1pk-B4ta><aBxo1 >  THEN  FrIntaPrIntal 
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7(M  COtU*  2<t« 

7<M  17  X*«  THEN  CrUkaPpob 

7C7t  17  xot  THEN  CrUli«7peb*Crl»k 

7SU  17  CPt»k>t  THEN  Crttk-I 

7E«t  NEXT  X 

77M  7>ll«l 

771b  70R  X«i  TO  e 

772i  COtUI  2Cbb 

773i  17  X«t  THEN  brUkabreb 

7740  17  XOb  THEN  bpUk*bpeb*bri*k 

7790  17  bpl»k>l  THEN  bPUk>l 

7700  NEXT  X 

7770  brUkPl-brUk 

7700  17  (Mt<brtsk-Rlph«><>ntel  >  RMb  <IIIS(Cr<»k-btt«><«ltel  >  Then  bRlNT  USING  0 

S70iO,e,bPUk*IOO,CpUk4IOO 

7700  17  <RtS(bpi«k>Rlph4t)<pRtel  >  RNO  (RSS<Cp4sk-b*t*><«Siel  >  Then  bRlNT  USING  0 

240 

7000  17  (RMCbpIpk-RlphalORtet)  RNO  <RSS(CrUk-Sttk><>Stel  >  THEN  bptnt>br«nt*l 

7010  17  bPt4k>Rlphk*«tel*.004  THEN  7030 
7020  NEXT  0 
7030  OlSb 

7040  BlSb  •  NNILE  HOLBING  BETM  TO  NITNIN  ‘IBtolklOO; *«  07  TNE  SbEClFl 

CHTION, 

7090  BlSb  -BO  YOU  NANT  TO  EXAMINE  bLANS  UITN  AN  ACCEbTANCE  NUMBER  EOUAL  TO‘;C*l 

7000  BlSb 

7070  BEEb 

7000  IHbUT  07 

7090  17  R7>*N0*  THEN  7910 

7900  NEXT  6 

7910  17  bptiitaO  THEN  bRlHT  LlH(2>:*No  piknp  h*p*  found  thot  oktitfttd  tht  ototo 

d  doa<0M  totoP4nc44.*SLlH<4> 

7920  17  brlntoo  THEN  BlSb 

7930  17  bpIntoO  THEN  BlSb  'YOU  CAN  LOOSEN  THE  TOLERANCES  ON  ALbHA  S  BETA  ANB  TR 

Y  AGAIN,  17  YOU  HAHT  TO  I* 

7940  17  bpint-S  THEN  BlSb 

7990  BEEb 

7900  70R  lot  TO  9 

7000  17  XoO  THEN  CPldkobppb 

7070  17  XOO  THEN  CpUkobPOboCPlsfc 

7000  17  Cpl7k>l  THEN  Cpfdkot 

7090  NEXT  X 

7700  boRql 

7710  70R  XoO  TO  C 

7720  eOSUB  2000 

7730  17  XoO  THEN  bpUkobpob 

7740  17  XOO  THEN  bp<dkobpeb*bP«dk 

7790  17  bp<»k>l  THEN  bplsko} 

7700  NEXT  X 
7770  bplsko|.bpUk 

7700  17  <HBS(bpUk>Atphd><oAtol>  ANB  (ABSLCpidk-BolaXoBtel  >  THEN  bRINT  USING  0 

270;S,C,bPUko|00,CPl»ko|00 

^790  17  (ABS<bplsk-A1ph«><oAtol>  ANB  <ABS<CpUk-B«td><oBi»l  >  THEN  bRINT  USING  0 

7000  17  <ABS<bplak>A1pH«><oAto1>  ANB  <ABS<CP<dk-Botd><oBteO  THEN  brtntobplnt*! 
7010  17  bpldk>A)pha*Atel*.004  THEN  7030 
7020  NEXT  0 
7030  BlSb 

7040  BlOb  •  UHILE  HOLBING  BETA  TO  UITHIN  *;Bte1ol00; 'X  07  THE  SbEClFI 

CATION,  " 

7090  BlOb  -BO  YOU  HAHT  TO  EXAMINE  bLAHO  HITH  AN  ACCEbTANCE  HUMBER  EOUAL  T0-;C*1 

7000  BlSb 

7070  BEEb 

7000  IHbUT  R7 

7090  17  Rda'NO'  THEN  7910 

7900  NEXT  e 

7910  17  bplntso  THEN  bRINT  LlN<3>;*Ne  plan*  u»p«  found  »hai  aatlafiRd  tha  atat* 

d  dtdlgn  aoldPancRS. *;L1N<4> 

7920  17  bPlntM  THEN  BlOb 

7930  17  bPintaO  THEN  OlSb  -YOU  CAN  LOOSEN  THE  TOLERANCES  ON  RLbMA  i  BETA  ANB  TR 

Y  AGAIN,  17  YOU  HANT  TOI* 

7940  17  bPlntaS  THEN  OlSb 

7990  BEEb 

7900  70R  !■!  TO  9 
7970  HAIT  200-1420 
7900  BEEb 
7990  NEXT  1 
0000  GOTO  2010 
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••It  IF  tcOS  THIN  ••!• 

••at  FOR  !■!  TO  < 

••30  IF  I»l  THEN  IISF  •  ENTER  THE  RCCEFTRILE  OORUITV  LEVEL 

••41  IF  I>3  THEN  BUF  •  ENTER  THE  LOT  TOLERRNCE  FERCEHT  BEFECTIVE  ■ 

••••  IF  I>3  THEN  BI«F  •  ENTER  THE  FROBUCER't  RISK 

••••  IF  I >4  THEN  BUF  *  ENTER  THE  CONtUNER'S  RISK 

••?•  IF  I>S  THEN  BUF  ■  ENTER  THE  FROBUCER'S  RISK  TOLERRNCE  LIMIT  • 

••••  IF  !■«  THEN  BUF  •  ENTER  THE  CONSUMER'S  RISK  TOLERRNCE  LIMIT  ■ 

••••  BUF  *  THE  ENTRY  MUST  BE  STRTEB  flS  R  FERCENT! 

tut  BUF 
•lit  BEEF 

•lat  IF  !•!  THEN  IHFUT  Rql 
•13t  IF  I>a  TNEN  INFUT  Lt^d 
•140  IF  I«3  THEN  INFUT  Rlph« 

•  ISO  IF  IM  THEN  INFUT  B4t4 

•  IM  IF  I>S  THEN  INFUT  Rtel 
•170  IF  !■<  TNEN  INFUT  Btel 
•!••  NEXT  I 

•  UR  RqURql/ltt 

•att  LTpR^LtHd^ltt 

•au  BUF 

•aat  MMSdaaittuot 

•ast  BUF  •  IS  there  R  CONSTRRINT  on  the  MRXIHUM  SRMFLE  SUET 

•340  BItF 

•ast  BEEF 

•act  INFUT  RddS 

•aat  IF  Rdd*a*N0*  TNEN  taat 

•att  BUF  *  Enter  the  ■•xinua  Sunle  Size  * 

•ast  iitp  - -  .... 

•3*a  BEEF 

•Bit  INFUT  n«itdu 

•33t  BJtF 

•33t  BUF  •  It  THERE  R  FINITE  LOT  tUET 

•341  BUF 

•39I  BItF 

•3M  INFUT  RddS 

•371  IF  RddSn'HO*  THIN  BldtSa'BlNOHIRL' 

•3Bt  IF  Rddta'NO*  THEN  •4tl 
•3N  BUF 

•4II  BUF  •  ENTER  THE  NUMBER  OF  UNITS  COMFRUINC  THE  FINITE  LOT  SUE 

•410  BUF 

•4a«  BEEF 

•43«  IHFUT  LdUt 

•440  IF  HdjfdaaHdtSd  THEN  MaxddaaLsiXd 
•490  BldtSa'HYFIR* 

B4M  Frintat 
•479  FOR  lat  TO  19 
•4tt  FOR  Jai  TO  17 

•4ft  IF  •l•9c<I>>atl•9d<J>  THEN  f39l 
•9I«  IF  •199d<J)>Haxd«a  THEN  f3EI 
•919  IF  8«dtSa*HYFER*  THEN  Iff! 

•9at  tatUBdCJ) 

•93t  Ca|lB9e<I> 

•941  FaRql 

•991  FOR  Na«  TO  C 

•9M  GOtUB  aCM 

•97a  IF  Hat  TNEN  FaCl,l>aFreb 

•9tt  IF  XOt  THEN  Fa(l,l>aFd(l,l)*Frob 

•9M  NEXT  X 

•cat  FaLipd 

•Elt  FOR  Xat  TO  C 

•cat  GotuB  acta 

•cat  IF  Xat  THEN  FdCa.DaPreb 

•C49  IF  XOt  THEN  Fa<a,l>aFa(a,l)*Frob 

•C9t  NEXT  X 

•CCt  R<dkpa<l-Fp<l,n>dltt 
•C7t  R«dkcnFp<a.l>4ltt 
•cat  GOTO  tt9t 
•cat  NaLdlSd 
•7tt  HaStCSd<J> 

•7tt  Cattt9e(I> 

•7at  KaRqULdUd 

•73t  IF  KalNTCK)  THEN  Mat 

•749  BUF 
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B7S« 

BIBB  'Tha  product  of  BBL  and  Let  Size  la  equal  to  Tna  la  the 

n 

uabar 

of  ■ 

■7M 

8IS9  br  lei  which  suei  b*  *n  iniegtr,  so  enter  the  nu»bcr 

of  d 

afeettwet’ 

•77* 

BIBB  ‘par  let  that  cerratponda  te  MOLI* 

•7B* 

BIBB 

•7«« 

BECB 

•••• 

INBUT  K 

Mi* 

COTO  BBBB 

M3B 

BOB  XaB  TO  C 

8I3« 

GOBUB  B4BB 

••4B 

IB  XuB  THEN  Ba(l,l>aBreb 

••SB 

IF  XOB  THEM  Ba<l,l>eBa(l,l>*Breb 

BBCB 

REH 

BB7« 

NtMT  M 

BBBB 

KaLtpdcLalza 

BB9B 

IF  K>INT(K)  THEN  BBBB 

BBBB 

BISB 

BBIB 

BISB  'The  product  of  LTPB  and  Let  Size  la  equal  te  Tnia  la  tha 

nuAb^r  bf  * 

BBBB 

ef  d 

•fact  4  wee* 

BBBB 

8lt9  *een  lei  ihei  cerneepende  ie  LT98!* 

BB4B 

BIBB 

BBSB 

BEEB 

BBCB 

INBUT  K 

aB7B 

COTO  BBBB 

BBBB 

FOR  MaB  TO  C 

BBBB 

GOBUB  B4BB 

9iM 

IF  NaB  THEN  BaCB.naPreb 

BBlB 

IF  XOB  then  Ba<a,l>aBa<2,l>«Breb 

BBBB 

REN 

BBBB 

NEXT  X 

BB4t 

COTO  acca 

BBSB 

IHRCE  SX, ‘Optional  Blnsta  SaapHno  Blana  Via  HIL-ST8>IBSB* 

BBCB 

BEEB 

BB7B 

BBBB 

IIMGE  BX.‘  _ _ _ _ • 

I NRGE  BX , ‘ 1 Saap 1  a | Rc c ap t anc a | Br educ ar'alCenauaar’al* 

BBBB 

IHRCE  *.BX,‘|  BIza  1  Nuebar  |  Rlak  |  Rlak  (* 

BIBB 

INRCE  JBX,‘For  RBL  a  ‘,3B.3B,*X  b  LTBB  a  ‘.BB.BB,*!!" 

BllB 

IHRCE  BX,‘That  eaat  Breducar'a  Rlak  a-,BB.2B, *l*,3B.2B, ‘X* 

BIBB 

IHRCE  BX,‘Rnd  eaat  Cenauaar'a  Rlak  a*,BB.2B, ‘*\BB.2B, 'X* 

BIBB 

IF  (RBS<Rlakp>Rlpha><aRtel>  RHB  (RBS<Rlake>Bata><aBtol >  Then  BISB 

B14B 

COTO  BBSB 

BISB 

IF  BrIntOB  THEN  BB3a 

BICB 

BRINT  LIN<4> 

B17B 

BRINT  USING  BBSB 

BIBB 

BRINT  USING  BtBBlRqlalBB.LtpdalBB 

BIBB 

BRINT  USING  BIlBiRlpha.Rtel 

BBBB 

BRINT  USING  BI2B:Bata,Bte1 

BBIB 

IB  Blatfa‘BINOHIRL‘  THEN  B2Sa 

BBBB 

BRINT  tBR(24);‘Let  Size  a  'iLalza 

BBBB 

BRINT  SBR<lS>S’aNyparBaoaatr1c  BrebabI 1 1 t laaa' 

BBCB 

GOTO  B3SB 

BBSB 

BRINT  SBR<>B)|‘aa»aBlnoolal  BrebabI I  It laaeaea* 

92<t 

IF  HaxaaaClBBBBSB  THEN  BRINT  SBR<B>;‘NaxlBuB  SaBpla  Size  Cenatralnt: 

BB7B 

BrIntaS 

BBBB 

BRINT  USING  BB7a 

BBBB 

BRINT  USING  BBBB 

BBBB 

BRINT  USING  BBBB 

BBIB 

BRINT  USING  BBBB 

BBBB 

IHRCE  ♦,BX,‘|‘,aB,‘  |•2X,C»,2X,‘|‘,CI).2B,‘X|‘.C^.^^,•X|• 

BBBB 

BRINT  USING  BB2B;SISSa<J>,SIS9c<I>,Rlakp,Rlake 

BBCB 

BRINT  USING  BB7B 

BBSB 

NEXT  J 

BBCB 

BB7B 

can 

NEXT  I 

IB  Printoa  THEN  BRINT  LIN< I >1 ‘R , COBplata  OC  Curva  for  any  ef  thaaa 

plana 

ba  ehtalnad  bv  •xarclalne‘:LIN(l>S‘Optlen  1  of  thia  prooraB  aaOBant . * 

KFIIl 

if  ^rlni«t  THEN  FEINT  LlN<E>;*Ne  Flen»»  eleulienteutl v  ftetting  the  design 

tel  trance*  on  Preducar'a  and* 
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APPENDIX  C 

DOUBLE  SAMPLING  DESIGN  AND  ASSESSMENT  SOURCE  CODE 


RCH 

80U8LE  SRn7LE  8E81CN  RN8'0R  R18K  R8SES8NENT 

2«1* 

8187  • 

• 

2«3f 

• 

8187  • 

>  Ooubit  PtAn  Option  rionu  < 

2a3t 

8187  • 

Oat  ten  Betcrietlen  Select 

2*4a 

8187  • 

>8eubl«  8aeala  Operating  CKaractariatle 

2«S« 

8187  • 

Curwo  ConoirMCtlen  Rntf  Rlok  Roftoopotni . . . . *..l 

2ecs 

8187  • 

>BoyOto  SAoplinp  Plon  StrlwAtfeni  ViA  Poiooen 

2«7t 

8187  • 

Apprexiaatien  ct  AL7NA  ■  93  AN8  Beta  ■  183  for 

2a8C 

8187  • 

Given  Bpeclfltatiena  of  AOL  8  LT7B . . . 2 

2aaa 

8187  • 

>8eubte  Baapltng  7lan  Berlwatien  trea  niL*STB-1898 

2iaa 

m 

8187  • 

Acceptance'TReJectlen  Nuabera  and  all  8tated  8aaple 

2118 

a 

8187  • 

8lzet.  Tbia  option  provided  a  Blnoaial  or  Hyper- 

2128 

8187  • 

geoaetric  Ataeadaent  of  Alpha  and  Beta  for  Stated 

2138 

8187  • 

AOL  8  LT7B  valued.  The  aaaeaaaenta  are  Halted  to 

2148 

8187  ■ 

the  teaaible  coabinatlena  of  aaaple  alze  and  accept 

21SS 

8187  • 

reject  nuabera  apecITIed  In  H1L-ST8-18S8 . 3 

2188 

8187  • 

>EN1T  thia  Selected  Option . 4 

2178 

8187  • 

• 

2188 

8187  •tHTta  THE  8EUCT  C08E  07  THE  BES1RE8  07T10H.- 

2188 

8187 

2288 

8EE7 

2218 

1N7UT  8< 

2228 

17  8c>4  THEN  RETURN 

2238 

17  8(01  THEN  7148 

2248 

70R  !■!  TO  8 

2298 

17  1-1 

THEN  8187  •  Enter  the  FIrat  Saaple'a  Site....* 

2288 

17  I>3 

THEN  0)tP  *  Entor  thr  Stcond  SAOpIt'o  Elstaapb* 

2278 

17  1>3 

then  8187  *  Enter  the  FIrat  Saaple'a  Acceptance  Huaber....* 

2288 

17  IM 

THEN  8187  *  Enter  the  Second  Saaple'a  Acceptance  Nuaber,.,,* 

2298 

17  l«3 

THEN  BIEP  *  Cntor  th«  Ptrot  SAopIo^t  Rojectien  Nuaber..,.* 

2388 

17  1«8 

THEN  8187  *  Enter  the  Second  Saaple'a  Rejection  Huaber....* 

2318 

8187 

2328 

8EE7 

2338 

17  !•! 

THEN  1N7UT  Baal 

2348 

17  1«2 

TNEN  IN7UT  8aa3 

2398 

17  lO 

THEN  1N7UT  Bapl 

2388 

17  1>4 

TNEN  1N7UT  Bap2 

2378 

17  Ia8 

then  tH7UT  Bret 

2388 

17  1-C 

THEN  INRUT  Bre3 

2398 

NEXT  1 

2488 

2418 

8187  • 

80  YOU  HAVE  A  FINITE  LOT  812E?* 

2428 

8187 

2438 

8EE7 

2448 

1H7UT  Rot 

2498 

17  R«»*>*HO*  THEN  8Uita*SlN0HlRL* 

2488 

17  Ro9«*H0*  THEN  2828 

2478 

8187  • 

ENTER  THE  FINITE  LOT  SIZE  ’ 

2488 

8187 

2498 

8EE7 

2988 

IMfUT 

Lofxe 

2918 

Rat  1  oaRaatl a^Lt i z« 

2928 

17  Rat«o>«.t  TNEN  B<at7>'HY7ER' 

2938 

17  Rattoa.t  THEN  4828 

2948 

8187  • 

Since  the  ratio  of  total  poaalble  aaaple  aize  to  lot  aize  ia  leaa-th 

•n  183, • 

2998 

8187  • 

aaybe  Acceptable  to  uae  a  linoaiAl  flpprexioAtien  to  the  Hypergtoo 

ttrlc 

a 

• 

2988 

8187  • 

90  YOU  UIEH  TO  USE  THIS  PPPROXtnRTlON?* 

2978 

8187 

2988 

8EE7 

C-l 


2S9t 

2CM 

2C1I 

2S22 

2Mt 

2<4« 

2(St 

2<« 

2S7( 

2cn 

2CtS 

27M 

2712 

2722 

2732 

2742 

2732 

27C2 

2772 

2722 

2722 

2222 

2212 

2222 

2232 

2242 

2232 

22C2 

2272 

2222 

2222 

2222 

2212 

2222 

2232 

2242 

2232 

2222 

2272 

2222 

2222 

3222 

3212 

3232 

3232 

3242 

3232 

3222 

3272 

3222 

2222 

3122 

3112 

3132 

3132 

3142 

3182 

3122 

3172 

3122 

3122 

3322 

2312 

3332 

3332 

3242 

3332 

3322 

3372 

2322 

3322 

3322 

3312 


INPUT  «•»$ 

IP  3(tB*N0*  THEN  S<4tta*HVPE2* 

IP  3t*«*VEf  THEN  BistfllNONlHL* 

IP  Blst2«*NyPE**  THEN  4232 

IP  Bl4tf’3lN0NINL*  THEN  3122 

RE><  BINONINL  tUlROUTINE 

IP  (S-X<2}  OR  <X<2)  THEN  PrabM 

IP  (S-X<2>  OR  <X<2>  THEN  RETURN 

IP  <2>X>3)  or  (X>R>  THEN  Prab>P«X«(l-P>>(3-K> 

IP  <B-X>3>  OR  <X>2>  THEN  RETURN 

Pr«b"l 

POR  Iial  TO  X 
PrebaPreb«P 
NEXT  It 

POR  Ii«l  TO  S>X 
Preb>Preb*<(X'»U>/u>*<t-p> 

NEXT  I» 

RETURN 

REN  NVPERCEOHETRIC  BISTRIIUTION 

IP  X<2  THEN  Preb«B 

IP  X<t  THEN  RETURN 

IP  X>K  THEN  Pr«b«2 

IF  M>K  THEN  RETURN 

IP  X>N  THEN  Preb«2 

IP  X>n  THEN  RETURN 

Pr*b»l 

P(l>aK 

P<3>«N>K 

P<3)«N 

P<4>aN-n 

P<S1«K 

F(2)«K*X 

P<7>«N>X 

P<t»N-K-H*X 

P<2»N 

PQR  IS*t  TO  2 

IP  PllbXl  THEN  F<U>a} 

NEXT  U 

“w  «*«i  TO  f 

P<Ib»P<Ib).l 
IP  P<U)<t  THEN  P(l4)«t 
NEXT  U 
CkM 

POR  U«1  TO  2 
IP  P(U>«|  then  3222 
Ck«t 
NEXT  It 

IP  Ck*2  THEN  RETURN 
COTO  3272 
return 

REN  IINOHIRL  EVRLURTION 

P*.21 

tsBttl 

C«Bapl 

POR  N«t  TO  C 

COtUI  3242 

IP  X-2  THEN  P«<l,l>«Preb 
JIP^N<>t  THEN  Pt(  1 1  llaProb^Ptl  1, 1) 

Centeno 

POR  X»C*1  TO  Br>*J-l 

Con<N>«N 

G0BU3  3242 

Cbnp<X>>Pr«b 

Cent  < I laCent ( I >*Cona(N) 

NEXT  X 

Rtn<  1  laBtt  1  aCent  ( 1  > 

t>Btt3 

Pb<2,I>a2 

POR  I-e*!  TO  8r«3-I 
POR  Xat  TO  BrtS'l-Cend) 

C0BU3  3242 
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332*  P4<2,U«P«<2,l>«Cenp<I>*Prot> 

3333  NEXT  X 
3343  NEXT  I 

3333  34(3,l>«3a<l.l>*34<2,l> 

3333  Pr<l,l»l-3a(t.l>-Cent<l> 

3373  3r(2,t>«l>3*(3. i> 

3333  IF  F«(3,l)<.32  THEN  3443 

3333  IF  (F4<3,1><.3>  AH9  (F4(3, 1>».2S>  THEN  F>F«.3I 

3433  IF  F4(3.1>>«.3  THEN  r>F*.3S 

3413  IF  F4(3,t><.2S  THEN  F«F*.31 

3423  1II3F  F 

3433  SOTO  3123 

3443  BI3F  *Th«  preb4b<HtN  of  4C(«pt4nc*  ls*iP4(3, 1  >*133; 'X  4(  ptront  3*r*ettw 

•  • 

3433  BI3P  *44U4I  te*:P*133: 'X. ■ 

3433  tISP  *  HHAT  ONNCE  90  VOU  HKNT  TO  INCLUBE  ON  THE  OC  CURVE'S  PERCENT  BEFE 
CTIVE  RXIS?  • 

3473  BISP  *  Th«  tntry  Bust  bs  ststsd  4S  4  ptrctnt < < .*. ,  fifty  parccnt  is  33 

>. 

3433  BISP 
3433  BEEP 

3333  INPUT  NsxK 
3313  n4XK>n4BX4l 

3323  B13P  ‘ENTER  THE  BESIREB  LNBELINC  INTERVNL  ON  THE  PERCENT  BEFECTIVE  RXIS. * 
3333  013P  *  The  pntry  Bust  b*  stptsd  4S  4  ptrctnt ( I . s. ,  on*  p*rc«nt  is  1). 

• 

3343  B13P 
3333  BEEP 
3333  INPUT  Hint 
3373  IncBH4xx</133 
3333  FOR  iBl  TO  133 
3333  Pd<l>Bls|nc 
3333  B13P 
3313  B13P  Pd<l> 

3323  pBPd<l>fl33 

3333  3«Bssl 

3343  C«B4p1 

3333  FOR  Xa3  TO  C 

3333  SOSUa  2343 

3373  IF  Xb3  then  P4<t,I»Prob 

3333  IF  X<>3  THEN  P4< 1 , I >BPpeb»P4Cl , I > 

3333  NEXT  X 

3733  C4nt<l>a3 

3713  FOR  XaCat  TO  Brtl'l 

3723  Con<X>ax 

3733  603UB  2343 

3743  Cenp(X)aPf>Bb 

3733  Cont<I>aCont<t>*Cenp<X> 

3733  NEXT  X 

3773  Nsn(I>aBsslaCont<I>aBss2 

3733  3aBss2 

3733  P4<3. I )as 

3333  FOR  JaCal  TO  Brt2-1 

3313  FOR  Xa3  TO  Bp«2-|oCon<J> 

3323  C03U3  2343 

3333  P4<2,l>aPB<2,t>aConp<J>aPreb 
3343  NEXT  X 
3333  NEXT  J 

3333  P4<3,l>aP4<t.I)«P4(3.1> 

3373  Pr(l,I>a|.PB(],{).Cont<I> 

3333  Pr(2,l)a|.P4<3,l> 

3333  NEXT  I 
3933  XiBal03 
3313  SOSUB  4913 

3323  B13P  'BO  YOU  NNNT  MY  SPECIFIC  POINTS  PRINTEB?' 

3330  BISP 

3343  BEEP 

3993  INPUT  Rad 

3333  IF  R«3a>N0*  THEN  2313 

3373  PRINT  LlN<4>;SPn<t3>; 'Risk  Evaluation  For  tht  Boubit  Saapling  Plan* 

3333  PRINT  SPR<13>:*First  Saaplol  n  a  'iBssl;*  Neetpt  on  *;B4pi;'>  Rtjoct  on  * 
iBrtl 

3993  PRINT  SPR<13>;*Socond  Saaplol  n  a  ■;Bss2:*  Nceopt  on  ■;B4p2:*i  Rtjoct  on  * 
iBrs2 

4333  PRINT  3PN<17>:*<BinoBial  Bistribution  Probabi  1 1 1 ios)  * ; i.IN(  1  > 

4313  PRINT  U3INC  43C3 
4323  PRINT  U3INC  4373 
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4t3«  PRINT  UtINC  4RN 
4R4R  PRINT  USING  4tft 
4t3t  PRINT  USING  41SS 

4tSR  IHRGE  •  _ 

4R7R  IHRGE  *  I  F)r*t  S«»tt»«  Rl»li«  I  ■  PI>h  Rt»li» 

_^lRi»»rRU»|* 

4SSS  IHRGE  *1  P*re(nt  |Rcc4pt4nc*  |Centtnu«  |  R4J*ciien  |Rcc«p\anct  |  Rtjtctf 
on  |S«Bpl4  I* 

4RSS  IHRGE  *•  * lB«f4ct i v« iProbWI  I  < ty  iProbbbl  H ty|Preb«bt  >  Hy iPrebbbt  I  f  ty |Preb«b 
MUy|NubbtP  ]* 

4ltS  IHRGE  • _ 

41  IS  niX5r7,"l't4II.4».*|*,S<S».4B,*|*),4#.2#,*|* 

412S  BISP  'ENTER  THE  PERCENT  BEFECTIVE . * 

413S  BISP 

414S  BEEP 

41SS  input  p 

41ES  P«P^lRt 

417S  S«B*>I 

41SS  C>Bbpl 

419S  POR  Nat  TO  C 

42U  GOtUB  2t4S 

421t  IP  Has  TNEN  P«<l,t>apr«b 

422#  IP  NOS  TNEN  P*<i ,  1  >aProbaPa(  1, 1  > 

423#  NENT  N 

424S  Cent<l>aR 

42SS  POR  NaCal  TO  Or*t>l 

42S#  Can<N>aN 

427#  COtUB  2S4# 

42##  Cenp<N>aPreb 

43S#  Cbnt<l>aCent<l>aCanp<N> 

43##  RENT  N 

431#  R4n<I>aBt«l*Cant<l>aB»«2 
432S  taB»42 
433#  P«<2,l>a3 
4343  POR  JaCal  TO  Sr*3-I 
439S  POR  Na#  TO  Br«2-l-Con( J> 

43CS  GOSUB  2S4S 

437#  Pb<2il>ap4(3il>aCenp<J>aPreb 
43t#  NENT  X 
43t#  NEXT  J 

443#  Pa<3,l>aP4<I,l>ap4<3,l> 

4413  Rp(l,l>«l-R«<lil>'-Ceni(l> 

4423  Pr<2,l>at.P4(3,i) 

4433  PRINT  USING  411t:Pal33.P4<i , 1 JaiOB.Cont <1 latBR.PrC I, 1 >*13e,P4C3, 1 XlbS.PrC 
2«l>alt3,R4n(l> 

4443 
4493 
4433 
447# 

4433 
4493 
4933 
4913 
4923 
4933 
4943 
4993 
4933 
4973 
4933 
4993 
4333 
4313 
4323 
4333 
4343 
4393 
4333 
4373 
4333 
4393 
4733 
471# 

4723 


PRINT  USING  4133 

BISP  ■  BO  TOO  NRNT  RNYHORE? 

BISP 

BEEP 

INPUT  R«* 

IP  R««a'NO*  THEN  2313 
GOTO  4123 
REH  OC  CURVE 
PLOTTER  IS  '93723' 

PLOTTER  7,9  IS  ON 
LOCRTE  13,133,13,133 
tCRLE  S,HaiiK,3, 134 
CS12E  2 

LRXEt  X«nt,9,3,3,>l,l 
HOVE  9aX<nt,13t 

LRBEL  *  Oparating  Charactarlatlc  Curve* 

LRBEL  'Plraa  taapU:  na'iOaai;*:  Cta';Oapl;*  R|a';Br*l 
LRBEL  'Second  taaplel  na';Baa2i*:  C2a*:Bap2:*  R2a*;Bre2 
LRBEL  *  Blneatal  Prebabi 1  It (ea* 

HOVE  3,133 
POR  Pastel  TO  2 
HOVE  3,133 
IP  Pastel  TNEN  PEN  2 
IP  Passa2  TNEN  PEN  2 
IP  Rassal  THEN  Bel 
IP  Passa2  TNEN  Oa] 

POR  |al  TO  Lla 
BRRH  Pd<I>,Pa(e,l>elS3 
NEXT  I 
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473t 

474* 

479t 

47(« 

4r7t 

47M 

47*9 

4«M 

4tlt 

4t2« 

4t3t 

4«43 

43S3 

43C3 

4|7t 

43M 

4tM 

43M 

4919 

4939 

4939 

4949 

49S9 

4999 

4979 

4999 

4999 


NEXT  9U9 
7EN  1 

HOVE  S4X<nt,.S 

LMEL  '^EECENT  DEFECTIVE* 

WOVE  X1nt/4,t9t 
LMEL  -F*!*!* 

HOVE  139,139 
COCUl  9799 
RETURN 

REN  HVFERCEOnETRIC  EVALUATION 

K*S«a2 

N-LXtt 

NaStll 

l«d«K 

Ca9«pl 

FOR  N>9  TO  C 
COSUI  3779 

IF  X>9  Then  Fa(l.l»Freb 

IF  X<>9  THEN  F«(l.l»Arob*F*<l  1> 

NEXT  X  •w.ij 

Cbfil<l)a9 

FOR  X-e*!  TO  Srd-l 

Cen<X>«X 

C09UI  3779 

C0fi9<X>Mreb 

Cant  < 1 l-Cont  <  t l^Conscx) 

NEXT  X 


9999 

9919 

9929 

9939 

9949 

9999 

9999 

9979 

9999 

9999 

9199 

9119 

9139 

9139 

9149 

9199 

9199 

9179 

9199 

9199 

9299 

9319 

9339 


pvr  Lot 
9239  ai9R 
9349  910R 

LOT  AXI9T 
9299  SI9R 


A»n< 1 >«Bs9 1 *eont  < 1 >4Bs«3 
HaB4»3 
NaL4<(VB»>l 
F4<3,l>>a 

FOR  l-e*!  TO  ar*2-l 
K-Bbd-I 

FOR  X»9  TO  fir-43-t*Cen<l> 
eOBUa  2779 

F a<3 , 1 1 afAC 2 , 1 > *Cenp< I > vRr eb 

NEXT  X 
NEXT  I 

K4BU 

Fb<3, 1 )4Fb< 1 , 1 >«Fb<3, 1 > 

Fr< 1 , 1 >41.F4< 1 , 1 >-eo«t  < 1 > 

Fi‘<2,t>4l>F«<3,t> 

BJSF  ‘Fbp  ‘iX;*  9*r««t«v«*  ptr  let, 

B19F 

IF  F«(3,t><.92  THEN  9219 
IF  Fb<3,l>».l  THEN  K«K*9 
IF  F«<3,1)<.1  THEN  K>K«1 
GOTO  4999 
BISF 

BI9F  'The  prebAbnity  of  Mteptenc*  U*;F«(3,  l>4199; 'X  4f;x;*  Oefectiwes 


the  F*  fer  the  plen  l•*;F•(3,l> 


NNAT  range  bo  YOU  NANT  TO  INCLUBE  ON  THE  OC  CURVE '9  BEFECTIVE9  FER 


9399 

9279 

9399 

93*9 

9399 

9319 

9329 

9339 

9349 

9399 

9399 

9379 

9399 

9399 


••  an  Inteoer. 


9419 

9439 

9439 

9449 

9499 

9499 


The  entry  bust  be  et 

BISF 
BEEF 

INFUT  n«xK 
NbllNaN«llK*l 

BISF 

ei»  »G*IREB  labeling  INTERVAL  ON  THE  DEFECTIVES  FER  LOT  AXiS.* 

BISF  •"XFy  bust  be  stated  u  an  Integer.  • 

BEEF 

INFUT  XInt 

IF  NaxKtalSS  THEN  LlaaNaiM 
IF  HaxxTISS  THEN  LlaalSS 
IF  HaKKtelSS  THEN  Intel 
IF  (NaKii<e399)  anB  <na«»>l*9>  THEN  Inee2 

IF  <HaxKte49S)  AND  <Naxx>299>  THEN  Ince* 

<Hai(ii<e999>  ANB  <Ha>c«>490>  THEN  InceS 

(naj(x<e9*9>  ANB  <naxx>S*9>  THEN  InfS 

FND  (Haxx>C99>  THEN  IneelS 

FOR  |ai  TO  Lib 

Fd(I>eBap3e(I>l>etnt 

BISF 


IF 

IF 

IF 
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947a 

Biap  Pad) 

94aa 

KoPd<I> 

94ta 

BbdoK 

9saa 

N«L««(t 

99ia 

HoBosI 

992a 

CoBopI 

99)a 

FOR  X*a  TO  C 

994a 

COaUB  277a 

999a 

IF  X-a  THEN  Pbd.DoPrab 

99aa 

997a 

NEXT  X 

99Ra 

Cent<I»a 

99aa 

FOR  XoC*l  TO  BroJ-1 

9aaa 

Can<X)«X 

9Cia 

coaua  2770 

9C2a 

Conp<x)oProb 

aaaa 

Cent ( I )oCont ( I >«Conp<X> 

9C4a 

NEXT  X 

9a9a 

R*n< I )oB4i 1 *Cont  d  >*0so2 

9aca 

Ha0ss2 

9a7a 

NoLstzo-Stol 

9aaa 

p«<2,i>*a 

9caa 

FOR  JoC*I  TO  Bpo2-1 

97aa 

K>aod-j 

97ia 

FOR  x>a  TO  0Po2*I-Con<J> 

972a 

coaua  2770 

973a 

F4<2,  nnPo(2, 1  >*Conp<  J>oProb 

974a 

NEXT  X 

979a 

NEXT  J 

97aa 

Po<3,I>*Po<l<I>*Pa(2,I> 

977a 

PPd ,  t  >■]  -Pad ,  I  >  -Cont  <  1 ) 

97aa 

Pr(2,I>at.P4<3.I> 

979a 

BEEP 

9U$ 

**5?  ***'S^^‘**S*  »4tl»tIo*;P4<l,I);’  P4(Pl4n»*;p4<3i  I) 

aaaa 

coaua  0440 

gaaa 

BiaP  *00  TOO  HRHT  RNT  OPECIFIC  POIHTO  PRINTEBT* 

9a4a 

aiap 

aaaa 

BEEP 

9aaa 

INPUT  Rot 

9a7a 

IF  R«»a«N0*  THEN  2010 

aaaa 

MINT  LSN(4>jSM<}t>a  Ev4lu4%<on  Fcr  %h9  SeubW 

599$ 

fOrtt 

PRINT  aPR<ia>;*F<P4t  aaapt«:  n  •  ■;BsoIi*  Rccopt  on 

‘iBopl;*,  Rojoct 

99aa 

PRINT  aPRtlO); ’Btcond  Baaplo:  n  •  *:Bs*2;*  Rccopt  on 

■;B4p2i*,  Rtjoct 

:Bro2|LIN<l)|aPR(29>!*Lot  S«xt  >  *;l.4<zo 

99ia 

fffINT  fPM<l7>;*(Hyptrg4e4«trlc  Siptrlbwtion  Preb4bn  Ul4»>*:LlH(l> 

992a 

PRINT  uaiNC  9970 

a93a 

PRINT  uaiNC  99aa 

5949 

PRINT  UaiNC  9990 

999a 

PRINT  uaiNC  caaa 

99aa 

PRINT  uaiNC  caia 

997a 

INRCE  ’ 

on  * 
on  • 


^  I  F<r»«  Sooolo  tioto 

|9or«ct<wt|Aecoptanct  |Cont<nuo  I 

on  Itaapio  |* 

CM!  IfIRCC  «,*|  Por  Lot  iFrebobn  «iy  IProbobll  Uy 
nity|Nuabor  ]* 
cat*  IHPU  • 

T— 


S«*i  tnA&t 

IWvoraoo I 

5f»*  imee  • 


_ i _ Plan  Ploko 

Kojocilon  iPcctptanco  |  Rojoctt 
iProbab)  1  tty  |Preb4b4  Mty|Ppobab 


cast  lECP 

saaa  input  k 

capa  n«>>si 

caaa  n«l>izo 

caaa  c-Bopj 

ciaa  iad«K 

ana  FOR  N-a  to  o 

aiaa  coaua  arra 

ciaa  IF  N-a  then  p«n,t>*Ppob 

aioa  IF  NOa  then  Pa<l,l»PPob*Pa<l,l> 

CISa  NEXT  X 

aiaa  cent<i>aa 


I* 
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<17«  FOR  M«C*I  TO  tr«l-I 

(too  e«n<X>-X 

<>*•  eoouo  3770 

C200  CenF<X>aFreb 

C310  Cent<l»Ceni<t>*Canp(X> 

(320  NEXT  X 

(220  ntn<l>aBs*l*Cent(l>*Pas2 

<240  N-LlUt-Bstl 

«2SB  H>B*t2 

CBM  F«(3,I>«B 

C27B  FOR  J-C«i  TO  0r« 

C2tR  K>BM>J 

i2*t  FOR  XM  TO  Br«2-l-Can<J> 

C2tR  eOSUt  2770 

CBIO  Fa(2,l»Fa<2,l>*Cenp<J»Preb 
C320  NEXT  X 
C33t  next  J 
C340  K«B4d 

C3S0  F4(3,1»F4<1,1>*F4<2,1> 

C3M  Fr(t,l»t-Fa<l.t>-C«nt<l> 

C37i  Fr(2,l>al-F4<3,t> 

C3I0  PRINT  USING  S020:K,Pa<l,  l»100,Cent  (1  XlOS.PrO ,  t  >*IBS,P4(3, 1  »10S,  Pr(2, 1  > 
•  lOO.RanO) 

S3«i  PRINT  USING  SSIS 

S4S0  BISP  *  BO  you  URNT  RNVNORE? 

S41S  BISP 

S430  BEEP 

S430  INPUT  R«S 

S440  IF  R«««*N0‘  THEN  20t0 

C4S0  GOTO  CSSS 

S4SS  REN  Oe  CURVE 

S47S  plotter  is  ’SS72R* 

S4SS  PLOTTER  7,S  IS  ON 
S4SS  LOCRTE  tS.ISS.tS.tSS 
CSSS  SCALE  S,H4]tic,S,tS4 
SStS  CSI2E  2 

COBS  LRXES  X<nt,S,S,S,>l,l 
SS3S  HOVE  StX<nt,lSl 

SS4S  LABEL  *  Optr«t<ns  CharaettrUtle  Curwt* 

CSSS  LABEL  •Urn  SaapU:  A**:Ba*i;*«  C1b*;B4P>;* 

csss  LABEL  ‘StcenS  Saaplts  M’lBaaBS*:  C3«*;B«p3i*  R2B*iBrt2 

SS7S  LABEL  *  Lot  tU*  ■  ’IL»4S* 

CSSS  LABEL  *  Nyp«rs4ea«ir1c  preb«bttt%<*** 

SStS  MOVE  S.ISS 

csss  FOR  PuSBt  TO  3 

SSIS  HOVE  S,1SS 

CC20  IF  Pu«Bt  THEN  PEN  3 

SS3S  IF  Pm4b3  then  PEN  3 

SS4S  IF  Pw««l  TNEN  0*1 

CSSS  IF  Pm*«3  TNEN  0-3 

CSSS  FOR  >1  TO  L<B 

SS7S  BRAN  Pd(I),P«(a,I>«tSS 

CSSS  NEXT  I 

CSSS  NEXT  Pass 

SPSS  PEN  I 

C71S  HOVE  S4Xlnt,-S 

S72S  LABEL  •BEFECTIVES  PER  LOT- 

SPSS  HOVE  X1nt<’4,lSt 

S740  LABEL  *Pa(X>* 

SPSS  HOVE  12S,I2S 
SPSS  GOSUB  S7tS 
C77S  REA 
SPSS  RETURN 

SMS  BISP  *  RELOAB  TNE  PLOTTER.  UNEN  BONE,  ENTER  CO! 

SSIS  BISP 

SS3S  BEEP 

SS3S  INPUT  RS 

CS4S  PLOTTER  IS  -fSTSA- 

CSSS  PLOTTER  7,S  IS  ON 

CSSS  B<S«->R 

SSTS  FOR  I>I  TO  Lia 

CSSS  IF  AandlPBtg  TNEN  Bls«Aan<I> 

CSSS  NEXT  I 
CSSS  naKyB|NT(B«g>*3 
SSIS  LOCATE  IS, ISO. IS, ISO 
SBSS  SCALE  S.AaxK.S.HaxyO 
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C>3t  CtIZI  2 

<*4t  Ytnt«INT<n«)iy/2t> 

C«9t  If  V1nt<l  THEN  Y4nt«l 
CfCE  LMXEt  Xtnt.Ytnt, I 
C»7«  HOVE  S*K< fit, nxxy 

S9E0  LHIEL  *  H««r*o*  tuipl*  HutiMr  Curve* 

EMO  LHIEL  ’Hret  (Mpl*:  n«*jB»»i;*:  Cl»*:l»yl!*  «l**:#r»l 
7UE  LHIEL  •lecond  tuylei  ca»*;l«H*i“  «a“*;lr«2 

7m  IF  IUtr»»*MYFE«*  THEN  LHIEL  *  Lot  Hx«  •  'ILotxe 

7m  IF  l1itl»*HYFE«*  THEN  LHIEL  *  Hypergeooetrlc  FroboliUtit* 

7131  IF  IUt»<>*MYFE«*  them  LHIEL  *  Unootol  FrobobUltleF* 

7141  HOVE  Xtnt/S.Hoxy 
7ISI  LHIEL  *HIN* 

7eci  HOVE  44Xtnt,Yint 

7171  IF  lUtf-'llHOHlHL*  THEM  LHIEL  "FEHCEMT  OEFCCTIVE* 

7110  IF  BUtlO’lIHOHlHL*  THEM  LHIEL  ’lEFECTIVEI  F£«  LOT* 

7m  HOVE  lilttl 

71M  FOR  !■!  TO  L<H 

7111  IRHH  Fd(I>,Hsn(I) 

7131  MEHT  I 

7131  RETURN 

714*  IF  Ee<>3  them  7t9R 

7I5R  IISF  *Th«  fioubi*  twpling  pl*"*  *adr4»»«d  herein  *re  oT  two  type*.  The  ri 


«t  type* 
71M  Blip 
htle  the  * 
7171  ailF 
71RR  BlIF 
71M  ailF 


*4peclfie»  th*t  the  eecand  tanple'e  >ixe  l»  tviee  th»t  of  the  flroi  u 
*teeond  type  tpetifle*  thot  both  sonpleo  ore  of  equo)  »lxe.* 

*  IF  YOU  HHHT  OFTIONHL  FLHM8  IH  UHICH  n2  •  2(nl>,  ENTER  H  1. 


• 

72M  aitF  *  IF  YOU  HHHT  OFTIONHL  PLHNS  IN  UHICH  n2  >  nl,  EMTER  H  2. 

73ia  aitF 
7220  REEF 
7231  INPUT  tel 

728*  lF*ii**THEH  aitF  *  EMTER  THE  HCCEFTHRLE  OUHLITY  LEVEL,  ITHTEB  IN  PERCENT 

72ta*  IF  1*2  THEN  aitP  *  ENTER  THE  LOT  TOLERHHCE  PERCENT  REFECTIVE,  ITHTEB  IN  F 
ERCENT  FORH.  * 

7390  ailF 
7300  BEEF 

73ia  IF  !■!  then  INPUT  Hql 

7330  IF  Io3  THEN  INPUT  Ltpd 

7390  NEXT  I 

73ft  RqloHqli'IM 

7370  LtpdoLtpdfltO 

7300  HIphoeRlpho^lOO 

7390  8oto«letofl00 

7400  IF  telol  THEN  Llaolt 

7410  IF  tvl*2  then  LIo«17 

7430  FOR  3-1  TO  L*o 

7430  aoo|olNT<Ceeo(tel,3,9><fHq1)*t 

7440  FrdfJleBPPl 

7490  IF  lelol  then  Fr(3, J>e2eBPPt 

74f0  IF  Ce1e3  then  Fr<2,3>>apsl 

7470  Po(I,3)eHq1 

7400  Po<2,3>oeceo(tel , J,f>^Bppt 

7490  P«<3,J>eCce«<te1,  J,7>/appl 

7900  P«(4,3>eCceb(te1,J,0>eappl 

7910  aa*leINT(Ccvb(te1,J,7>/Ltpd>*l 

7820  Pr(3,3)eaiPt 

7930  IF  telel  THEN  Pr(4, J>>2404sl 

7940  IF  te1*2  THEN  Fp<4,J»8pp1 

7990  Fa(9,3>eCcca<te1,3,9>^appl 

78f0  Fa(f,J»ecaa<tel,3,t>/Bptl 

7970  Pa(7,3>eLtpd 

7900  Pa(0,3»Ccea(Oel,J,0>e8ppl 

7890  NEXT  J 

7f0t  IHHCE  *  ■ 


TtTo  IHHCE  *  Itappllna  Flan  tpet If Icat Ibnl  Fereent  Befeettwe  at  |Hver 

aqel* 
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IHMCC  “I  P 1  *n  Ji«»g1«_Sijj«_lftcc»£t^ne«_0n_[Uh  1  c K  tht  P(Rcc«pt«nct>  {Sup 
IHPCC  * |Opt lon|F(rpt  |S*cend|Fir*t  l»«condl<«  Pp»rCKi»4t«1v  Eoupl  iNuab 
ItIHCE  *,  *  iNuabcr  |Supl«|Spap)*|S»apl*|Sup)  1 1  fSk  |  Sdk  |  I6is  |Pp>*S 
IHPCC  • _ _ _ 


7?M  IHPCI 
7C7I  PRINT  USIMC  PCRR 
7CU  PRINT  USING  7<IR 
TSSS  PRINT  USING  7S2S 
77SS  PRINT  USING  7SSS 
771t  PRINT  USING  7S4S 
772S  PRINT  USING  7SSS 
773S  CouniaS 
774t  FOR  J*1  TO  L<b 
773S  Count aCount*! 

77St  PRINT  USING  TSSSlCeunt  .Pr<  1 ,  J>,Pr<2,  J>,Cct<iCBt  I ,  J,  3) ,  CctoCStI ,  J,4>,  Po<  I ,  J> 
*1SS,P«2,  J>atSt<Po<3,J>alSS,Po<4.J> 

777t  PRINT  USING  7<3S 
77SS  Count aCeunt*! 

77SS  PRINT  USING  7<CS;Count .Pr<3, J>,PrC4. J>,Ccto(9o1 , J, 3> , Ccoo(S*l , J, 4> , P*(S, J> 

alSt,P4<S,J>41SS.Po(7.J>4ltS.PB<t,J> 

7S0S  PRINT  USING  7SSS 
7Slt  NCNT  J 

7S2S  PRINT  LlN<2>:*Cx4ct  risk  ossossasnts  4ro  4u4il4els  For  4np  sdtctod  pl4n  b 


y" 

7S3S  PRINT  LIN<2>t*4x*r<ising  solaction  nuBbtr  I  of  th*  Beubis  Soapltng  Htnu.*; 
LIN(U 

7t4S  GOTO  2StS 

7tSS  IF  ScOS  TNCN  2010 

7SSt  FOR  lal  TO  S 

7S7S  >ISP 

7SSS  IF  lat  TNCN  BISP  •  ENTER  THE  RCCEPTNILE  OUNLITY  LEVEL,  STATES  AS  A  PERCEN 
T.  • 

7SSS  IF  Ia2  TNCN  BISP  ■  ENTER  THE  LOT  TOLERANCE  PERCENT  BCFCCTIVC.  STATES  AS  A 
PERCENT.  • 

7SSS  IF  laS  TNCN  BISP  •  ENTER  THE  PROBUCCR'S  RISK,  STATES  AS  A  PERCENT.  ■ 

7flt  IF  Ia4  TNCN  BISP  *  ENTER  THE  CONSUNCR'S  RISK,  STATES  AS  A  PERCENT.  * 

7S2B  IF  laS  TNCN  BISP  •  ENTER  THE  SESIGN  TOLERANCE  ON  PROBUCCR'S  RISK,  STATES 

AS  A  PERCENT.  • 

7S3t  IF  laS  TNCN  BISP  •  ENTER  THE  SESIGN  TOLERANCE  ON  CONSUNCR'S  RISK,  STATES 
AS  A  PERCENT.  * 

7S4t  BISP 
7333  BEEP 

73SB  IF  lal  TNCN  INPUT  Aql 
7f7S  IF  laS  TNCN  INPUT  Ltod 
7333  IF  la3  TNCN  INPUT  Algho 
7333  IF  Ia4  TNCN  INPUT  Bato 
3333  IF  laS  TNCN  INPUT  Atol 
3313  IF  laS  TNCN  INPUT  Btol 
3323  NEXT  I 
3333  39^301/133 
3343  LtpdaLtdd/133 
3393  BISP 

BBSS  BISP  *IS  THERE  A  CONSTRAINT  ON  THE  NUNBER  OF  UNITS  THAT  CRN  IE  SANPLEB'’* 

3373  BISP 
SMB  INPUT  Rood 

33M  IF  Rt>Sa«NO'  THEN  HoxoooalBBBBSI 
3133  IF  Rooda'NO*  THEN  31S3 
3113  BISP 

3123  BISP  ’ENTER  THE  NAXIHUH  NUHBER  OF  UNITS  THAT  HAY  BE  SAHPLEB. ' 

3133  BISP 
3143  BEEP 
3193  INPUT  Hojiooa 

31S3  BISP  •  BO  YOU  NAVE  A  FINITE  LOT  SIZE?’ 

3173  BISP 
3133  BEEP 
31M  INPUT  Rod 

3233  IF  Roda’NO’  TNCN  Biotda'IIHOHIAL' 

8213  IF  Roda’YCS’  THEN  Bistda’HYPCR’ 

8223  IF  Roda'NO*  THEN  3273 

3233  BISP  ’  ENTER  THE  LOT  SIZE.’ 

8243  BISP 
3293  BEEP 
82CS  INPUT  Loixo 
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•ar*  Print«e 
•ao  rpa  i>i  to  >c 
•a«o  sita 
•aoo  Bisa  I 
•a>0  ChcckaO 

•aat  FOR  a>i  to  ic 

•130  IF  a*n<i»(j>>n4>isu  then  t*<o 

0340  IF  nn*(J><«N1lr<l,l)  THEN  33S0 

•3S0  IF  a«niu(J)<«Nnr(t.a>  then  *«so 

•3E0  BISF  TRI<J>|a 

0370  IF  B(»T*«’HYFER*  THEN  OtlO 

3300  F>N4l 

S3B3  S«N(U<J> 

0400  C«n<l4<l.l> 

0410  FOR  K«0  TO  C 

0430  eoCUB  3(40 

0430  IF  H*0  THEN  F«<t,l»FreO 

0440  IF  KOO  THEN  F4<  1, 1>«F4(1, 1  >*FreO 

0430  NEXT  X 

04(0  CantCll-O 

0470  FOR  X>C*1  TO  Hnr<l.t>*l 

0400  Cen<X)*X 

0400  COOUB  3(40 

0300  C4nH<X>aFreb 

0310  C«ni<l>>Cont<l>*e4nH<X) 

0330  NEXT  X 

0330  R4n<l)«Hn4<J»<l«Cent<t>> 

0340  F4<3,1>*0 

0330  FOR  J|4C*1  TO  Nnp<l,2>-1 
03(0  FOR  XM  TO  Ht  1r< l,a>>l-Can<3« > 

0370  eOOUB  3(40 

0300  F4<3,  I>4F4<3,  1  )«Canp<J<  XFreO 
0300  NEXT  X 
0(00  NEXT  ii 

0(10  F4<3,1>4(F4<1,1>*F4(3,1 >1*100 

0(30  IF  F4<3,I>>100  then  F4<a,l>*10( 

0(30  Fr<3,l>-100>F4<3,1> 

0(40  eont(l>*e4ni<t>*IOO 
0(30  F*Ltp( 

0((0  FOR  X«0  TO  C 

0(70  COOUB  3(40 

0(00  IF  X-O  THEN  F4<l.2>«Fr4b 

0(00  IF  XOO  then  F4<1.3>*F4(l,a>*P<-eb 

0700  NEXT  X 

0710  CsnttaiM 

0730  FOR  X>C*1  TO  Hnr<l,l>-1 

0730  Con<X>4X 

0740  COSUB  3(40 

0730  CbnpCXlaFrob 

07(0  Cont(3>*Cont<3)*Conp<X> 

0770  NEXT  X 

0700  R*n(3>«N1ls<J>*<l*eont(a>) 

0790  F4<3.a>>0 

0000  FOR  3<4C*1  to  nnr<I.3>>l 
0010  for  X>0  to  n«lr<I,3)>l-C4n<3<) 

0030  COOUB  3(40 

0030  F4<3,2>«F4(3,2>*Cenp< J*  >*Freb 

0040  NEXT  X 
0030  NEXT  Jl 

00(0  F4(3,3>><F4(1,2>*F4<3,2>>*100 

0070  IF  F4<3,3>>t00  TNEN  F4<3.3>*I00 
0000  Cont<2>«Cont(2>*100 

0090  Fr<2,3>«IOO-Fa(3.3> 

0900  COTO  9(90 
0910  K>Rql*Li«x« 

0920  IF  K*INT<K>  THEN  9000 
0930  BIOF 

0940  BIOF  -THE  FROBUCT  Of  PCCEFTHBLE  OUHLlTY  LEVEL  b  LOT  S13E  It  -{K 

0930  BIOF  ’TO  USE  THE  HYFERCEOHETRIC  BISTRIBUTION,  THIS  FFRRHETER  HOST  BE  ON  1 

HTECER.* 

09(0  biSF  •  ENTER  THE  NUHBER  OF  BEFECTIVES  FER  LOT  THAT  IS  CONSIBEREB  TO  BE  AC 
CEFTABUE.  * 

0970  BIOF 
0900  BEEF 
0990  IHFUT  K 
9000  N*L»«Z* 


C-10 


M'K 

M2« 

9«3t 

««4t  FM  X-«  10  C 

»0S0  COSUI  2970 

mo  IF  N>0  THIN  F«<1, 1  >«Fre» 

9070  IF  HOO  THIN  Fa(t,  t>*Fr«b 

9000  NEXT  X 

9090  Cant<l>«0 

9100  FOO  XaC«l  TO  H(lr<I,t>>l 

9110  Cm<X»X 

9120  eOOUl  2770 

9130  C«np<X>oFrab 

9140  Cent<l>aCent<l>*Cenp(X> 

91  SO  NEXT  X 

91C0  A«n<l>aH«U<J>*(l*Cent(l>> 

9170  N«L4<X4-N«U(J> 

9100  F«(2,l»0 

9190  FOR  tt«e41  TO  Ni1r<l.l>*l 
9200  K>l«0>lt 

9210  FOR  N-O  TO  Hnr(1.2>>l-Cen<lt> 

9220  eOOUS  2770 

9230  F4<2a  l>4F4<2il>*Conp<lt»Frob 
9240  NEXT  X 
92S0  NEXT  It 
9200  eafit<l»1004Cent<l) 

9270  F«(3,  l>al004(Fa(  1 , 1  >*74(3. 1  >  > 

9200  IF  F4<9.1>>100  THEN  F4<3.1>«100 
9290  Fr<2,l>4l00-F4<3.1> 

9300  K«Ltp04LsU4 
9310  IF  K«INT<K>  THEN  9300 
9320  810F 

9330  SISF  • 

NTECER. « 

9340  BISF  •  INTER  TNI  NUHIER  OF  BEFtCTIVES  7ER  LOT  THAT  It  CONtlOERIO  TO  IE  HA 
ACINAL.  * 

93S0  BlOF 
9300  IIIF 
9370  INFUT  K 
9300  NiLtUt 
9390  l40«K 

9400  H4nn»<3> 

9410  CaHlUIl.l) 

9420  FOR  X«0  TO  C 

9430  GOlUl  2770 

9440  IF  X«0  THEN  F4(l,2>«Frob 

94S0  IF  XOO  then  F4(l,3»Freb4F4(1.2> 

9400  NEXT  X 
9470  Cent<3>40 

9400  FOR  X4C*1  TO  Nnr<I,l)-l 

9490  ConlXlaX 

9900  eotui  2770 

9910  Canp<X>4Frob 

9920  Cof\t<2>>C4>ttt2>«Conp(X> 

9930  NEXT  X 

9940  A4n(3>«Nns<J>4(l*Cent<2>) 

9990  HMIUIJ) 

9900  N>Lt1SfHns(3> 

9970  F4<2,3)«0 

9900  FOR  It>C*l  TO  nnr<l,3>-l 
9990  K4|40-lt 

9000  FOR  XaO  TO  nnr<l,3>-l>Cen(lT> 

9010  COtUI  2770 

9020  Fa<3|3)4F4<2(2>4Conp<It>*Freb 

9030  NEXT  X 
9040  NEXT  It 

9090  F4(3,3>4l004(F4<3,2>*F4(l,2>> 

9000  IF  F4(3,2)>100  THEN  F4<3,2»100 
9070  Fr<2,3>>100-F4(3,3> 

9000  Cont<3>4l004Cont(3> 

9090  IF  (AM<Fr<2,l)'AlpH4><«Ato)>  ANI  (AtS(F4(3,2>>ltt4><*iiel  >  THEN  CH*ck«l 
9700  IF  (Alt<Fr<2,l>'Alph4><>Atel>  ANI  <AIS<F4C3,21-l4t4><«liel  >  THEN  9000 
9710  IF  Ch*ck>l  THIN  9900 
9720  GOTO  9990 

9730  IHAGE  IX,*  • 

9740  IHAGE  IX, ’  I  Aec«pt^R«j4Ct  I _ 


9710  IHWE  IX,*  I  supl*  I  Crn>r)«  I  Ki»t  t  S—plina  luratn  Pt  t»»ir«d  S 
AM«  I  * 

i«  I  Fir«t  |S«tBnd  IWec»»t«bl«  Cuplttw  L»xtll  Tol»r«nc» 


9?€$ 

IHRGE 

IX.  *1 

y.  Stfttiiv 

L* 

9779 

INRGE 

IX.  *1 

1 

JL- 

9700 

iSSET 

tx,*_ 

9S0C  IF  FrIntOt  THEN  *930 

9010  IF  SiSt««*HYFER‘  THEN  PRINT  L tN<4>; SPA<20>i *Hyp»rg«op»tr t c  Prpfepfiility  Ewp 
1 upt 1  on* 

9020  IF  SittFa’IINONIRL*  THEN  PRINT  LIN<4>;SFn<23>i ‘BinoPiPl  Probppility  Ew«luP 


t  i  on* 

9030  PRINT  EPR<22>i*0ptlan4l  HIL>STB-t09S  SoapHng  PI  ono*;  LIH(  I  >;  tPP(30>: ‘ROLn* 
;Rg)*l00;*X  •np  LTPS>*;Ltpd4100:*k* 

9040  PRINT  SPRdli;  *Produc«r'4  RUk  ■  *;Rlphp;  *i*:Rto1  j  *2  pnd  Cen»uP*r'*  RUk 

90Sb’  if  N4x«pn< I 000000  THEN  PRINT  SPR(20>; *npx*Pup  Totol  SoppI*  Conttrpint: *;np 

xtpp 

9000  IF  Sl4t««*NYPER*  THEN  PRINT  SPH<32):*Lot  Six*  •  *;txixt 

9070  PrtntaS 

9080  PRINT  U0INC  9730 

9890  PRINT  U0INC  9740 

9900  PRINT  USING  97S0 

9910  PRINT  USING  97<S 

9920  PRINT  USING  9770 

9930  PRINT  USING  97901  N(U(J),H1U<  J>,BIU<  1, 1  >,«<  lr<  1, 1  >  ,Hn»<  1, 2>,  Ni  IrC  I,2>  ,P 
•  <3.  U,Cont<t>,PrC2,l>,RPn<n,P«<3,2>.Cent(2>,P>‘<2.2>,Nxn(2> 

9940  PRINT  USING  9700 
9930  NEXT  J 
9900  NEXT  I 

9970  IF  Pi><nto0  THEN  PRINT  "No  pl«nt  utro  Po<'no  .A.ch  p»t  th»  oolgn  tptciricot 
Ion*  xt  tho  tp4e1f  i»d*lLIN<l>j ‘Tolorpne**.  l  •‘rr.  te)4rpnc**  i  try  ogxini* 
9900  IF  Printos  TNEN  2910 

9990  PRINT  LIN<2)!*R  toPpUf  «xx4»xp>nt  of  th«x4  pipnx  ix  ePttintblt  p 

y  4x«rclx<no*;LIN<l>; *eptlon  01  of  this  »ePtM»r«  x»o»«nt . *; LIN<4> 

100^0  GOTO  2018 
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appendix  d  ^ 

SEQUENTIAL  SAMPLING  SOURCE  CODE 


ir  !■< 
Bisr 
2tM  BEEP 

ir  !■) 
ir  !■: 
2U«  IF  !■: 
212B  IF  !■< 
2 1  at  HEXT 
214B  Kql^Ai 
2l9t  Lipd«l 
2UB  Rlph«< 
2l7t  B«tP«! 
218B  B*neB' 
2t9B 

22ea  H2>l.0i 
22IB  S-LOC 
222B  BISF 
223B  BISF 
224B  BISF 
2298  BEEF 
2288  INFUT 
2278  IF  84 
2288  FRINT 
2288  FRIHT 
2388  FOR  I 
2318  TpbU 
2328  T«bU 
2338  TftbU 
2348  IF  T« 
2398  Ck-IN 
2388  IF  Ck 
2378  T«BU 
2388  Ck^IN 
2388  IF  Ck 
2488  Tab I* 
2418  NEXT 
2428  BISF 
2438  BISF 
riFLEB?  * 
2448  BISF 


ENTER  the  HCCEFTNBUE  OURLITV  LEVEL,  STNTEB  AS  A  FERCEN 

ENTER  the  lot  TOLERANCE  FERCENT  DEFECTIVE,  STATES  AS  A 

ENTER  the  FROBUCER'S  RISK,  STATED  AS  A  PERCENT  * 

ENTER  the  CONSUMER'S  RISK,  STATES  AS  A  PERCENT  * 


2888  REN  Stqua:  Nald'a  S«qu«ntial  OaapHng  Approach 
2818  FOR  !■!  TO  4 
2828  BISF 

2838  IF  !■!  THEN  BISF  *  ENTER  THE  ACCEPTABLE  DUALITY  LEVEL,  STATED  AS  A  FERCEN 

T  • 

2848  IF  Ir2  THEN  BISF  *  ENTER  THE  LOT  TOLERANCE  PERCENT  DEFECTIVE,  STATED  AS  A 
FERCENT  • 

2898  IF  I«3  THEN  BISF  *  ENTER  THE  PRODUCER'S  RISK,  STATED  AS  A  PERCENT  * 

2888  IF  I«4  TNEN  BISF  *  ENTER  THE  CONSUMER'S  RISK,  STATES  AS  A  PERCENT  * 

2878  DISF 
2888  BEEF 

2888  IF  !■!  THEN  INFUT  Aql 
2188  IF  I«3  then  INPUT  Ltpd 
2118  IF  1«3  THEN  INFUT  Alpha 
2128  IF  Ir4  Then  input  Bata 
2138  NEXT  I 
2148  A4laAq|ri88 
2198  LtpdaLtpq^l88 
2188  Alpha«Atpha/l88 
2178  Bata«Batarl8« 

2188  DaneoaLOCCLtpdad'Aqt  >x(Aqla<l-Ltpd>>> 

2188  HlaLOC<<l-A1pha>rBata>rDanea 
2288  H2*L0S<  <  1  -Bat  a)  /’AI  pha>/'Banoa 

2218  SaLOC<<l-AqUr<l-Ltpd>>/BanoB 
2228  BISF 

2238  BISF  *  BO  YOU  UANT  A  COPY  OF  THE  DERIVES  LINES? 

2248  BISF 

2298  BEEF 

2288  INFUT  RaS 

2278  IF  RaSa'NO*  THEN  2428 

2288  FRINT  LlN(4>i8FA<18>;*ReCaptanca  Lina:  X  ■  -(*;H1,‘’>  «  'iS; -(n>*:LlN(l> 
2288  PRINT  SFA< 18>i ‘Rajactlen  Linas  X  •  ‘SNSS*  ♦  •SSi*(n)* 

2388  FOR  !■!  TO  188 
2318  Tab1a<I,l>aI 
2328  Tabla<I,2>a'Nl«Sal 
2338  Tab1a<t,3>>H2«Sa| 

2348  IF  TabU<l,3><8  THEN  23S8 
2398  ekalNT<Tabla<l,2>> 

2388  IF  CkaTab1a<I,3>  THEN  2388 
2378  Tabla<t,21«Ck 
2388  CkatNT<TabU<l,3>> 

2388  IF  CkaTab1a<I,3>  THEN  2418 
2488  T8bla(I,3>aCk*l 
2418  NEXT  I 
2428  BISF 

2438  BISF  *  BO  YOU  UANT  A  TABLE  OF  THE  ACCEFT^JECT  NUhtERS  VERSUS  NUMBER  SA 


BEEF 

input  Ra« 

IF  Rafa'NO*  then  2898 


■T-,4<*Moobar  Ilf  Totai 
•(•.aC'Of  Unit  Bafactiva 
^|•■4<^^Saap1adlAcp^]Rajt 


2928  IMACE  ♦,* j*,4<lX,9D,«  | • , »1t3A, • I*, 1X,3A, • | 

2938  FRINT  LIN<4>;SFA(34>;*Hald'a  Saquantlal  Saapllng  Tabla* 
2948  FRINT  3FN(24>S*AQL**;Aqlal88;*X  S  LTFB»*;Ltpdal88! "X" 

2998  FRINT  SFA(38>;*Froducar'a  Rlpka  *;Hlphaal8S; ’X* 

2988  FRINT  SFA(38>: ’Conauaar'a  Rlpk>  *;Bataal8S; *X* 

2978  FRINT  USING  2488 

2988  FRINT  USING  2488 

2988  FRINT  USING  2988 

2888  PRINT  USING  2918 

2818  FOR  !■!  TO  29 

2820  IF  TabU<I,2><8  THEN  Taba<t>«HuB*(102> 

2838  IF  Tabla<I,8>a8  THEN  Tab«<l»Nuo8(18l> 

2848  IF  Tab1a<I*39,2><8  THEN  Taba<3>>Nup8(182> 

2898  IF  Tab1a(I*89,2>aO  THEN  Tab*(3>aNuo*(181> 

2888  IF  Tabla<I*98,21<8  THEN  Tab8<9>«Nupf(l82> 

2878  IF  Tab1a<I«9e,2>a8  THEN  Tab8<9>aNuaF<10I> 

2888  IF  Tab1a(I*73,2)<8  THEN  Tabt<7»Huo*<182> 

2888  IF  Tab1a<I*79.2>>8  THEN  Tab8<7>aNuB*( 181 > 

2788  IF  Tabla(I,2>>0  THEN  Tab«t»HupS<Tabla(I,2>> 

2718  IF  Tabla(l«39,2>>8  THEN  Tab«<3>aNup*(TablaC 1*29, 2> > 
2728  IF  TabU<I*98.2>>0  THEN  TabS<9»Nupf (Tab1a(Ia98,2>> 
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2731  If  T4bU(l*7S,2>>t  THEN  T4b«(7>>Hua$<T«bU<l*7S,2>> 

2743  IF  <T4blt(I,3>>T4bU(t,t)>  OK  <T4bU<t THEH  T4b»(2»Hua«(tn> 

27SK  IF  Tabl«<l,3><«TabU<l,l>  THEN  Tab*(2>>Nua*<T4b1*<1.3>> 

27(K  IF  <T4bU(I*2S,3>>T«bU<I«23,  l>>  OR  <Tabl*<I*29.3><>K>  THEN  Tab»C4>>Nuaf  < I 

02  > 

2770  IF  T«b1t(I*29i3><*T4blt(I*2S.I>  THEH  T«b*<4>>Hu>*<Tablt(I*29,3>> 

2700  IF  <Tkbl4(l«90,3>>TabIt<l*90,l>>  OR  (T«bl4<I*90,3><>0>  THEN  T«b((<>>Nua«<l 
02) 

2700  IF  TabU<I«90)3)<«T«bl4<I*S0,l>  THEN  T«bF<C>aNua*(TabU<I*90,3>> 

2000  IF  <T«b1t<I*73,3>>Tabl4(I«73,l>)  OR  <T«M«(I«73,3><aO>  TNEN  Tabt(0>aNua((l 
02> 

2010  IF  Tab1*(I*73,3><aTablt(I*79,l>  THEH  Tab«(0>«Nua«<TabU(  1*79, 3> > 

2020  FRIHT  USING  2S20;Tabl«( I ,  t  >;  Tab(<  1  >,Tab*<2>,TabU<  1*29, 1 >, TabtO) ,  Tab«(4>, 
Tab) •< 1*90, l>,TabS(3>, Tab«<S>,  Tab) •< 1*73,1 >.Tab*(7>,Tab«(0> 

2030  FRINT  USING  2400 
2040  NEXT  1 

2090  F3aa<|>9«ta>‘'RlRba 
20S0  F4aa|«ta'<l-Rl0ha> 

2070  HeptaO 

2000  Thttaa-3 

2000  FUa<|.|,tpO)y(l-Rq1  > 

2900  FSaaLtpd'^Rql 

2910  Fpsall-Fla'Thttal/lFSa^Thata-Flt-Thtta) 

2920  IF  <Fp»>0>  RNS  <Fp*<n  TNEN  2900 

2930  Th4XaaThtta*,04 

2940  IF  Thtta-O  THEN  2930 

2990  GOTO  2910 

2900  NaptaNepx*! 

2970  Fd<Napt>aPpa 

2900  Fall, Ndpt  >a(F94*Th4ta*l> / <F3»*Th4t  a-F4»*Th»t  a> 

2990  Ran<Hept>*Fa<l,Hbpt>«1.0G<F4a>*<l-Fa(l,Nept»a|.0G(F3a> 

9000  R*n<Hopt>aHan(N4pt>^<Fp«4U0G<F24>*<l«Fpa>*L0G<Fla>> 

3010  lEEF 

3020  IF  NoptatOO  THEN  3040 

3030  GOTO  2930 

3040  FOR  lal  TO  99 

3090  FOR  Jal  TO  ISO 

3000  IF  Fd<I)<aPd<3>  THEN  3100 

3070  TtaaPdll) 

3000  Fd<l>aPd<J> 

3090  Fd(J>aTta 
9100  TdaaPa<l,l> 

3110  Fa<l,l>aPa(l,J> 

3130  Fa(l,J>aT«a 
3130  TdaaRanll) 

3140  n«n<l>aOsn<J> 

3190  flpn<J>aTdB 
3100  NEXT  J 
3170  SEIF 
3100  NEXT  1 
3190  BISF 

3200  BISF  •  BO  YOU  UFNT  R  TRSLE  OF  Fa  i  FSH  VERSUS  FERCEHT  BEFECTIVE? 

3210  BISF 

3220  BEEF 

3230  INFUT  Rtt 

3340  IF  RcSa-NO*  THEN  9430 

3290  FRINT  L1N<4> 

3200  FRINT  SFH<30i; *S«qucnt ta1  Saapllng- 

3370  FRINT  •  ’  ROLa’lRql •lOO; 'X,  Froducar'a  R<aka*;R1pha«100; *X,  LTFB»'iU«pd 

•lOOl'X  S  Cenauatr'a  RlfV**;Btxa»100:'X' 

3200  FRINT  *  Frobabiltxy  of  Rccdptanc*  and  Rvdraq*  Saapit  Six*  Varaut  Fqrcdnt 
Bdfdctiwd* 


3290 

INRGE 

7X,* 

•.2<- 

•> 

3300 

INRGE 

7X,-T 

•,2<* 

11%y 

Rvaraga 

•> 

3310 

INRGE 

7X,* 

•,2<*  Fareant 

of 

Saapla 

•> 

3930 

INRGE 

7X,-1 

*.3<*Baraetiva 

Accfpionco 

•> 

3330 

FRINT 

USING 

3290 

3340 

FRINT 

USING 

3300 

3390 

FRINT 

USING 

3310 

3300  FRINT  USING  3920 

3370  INRGE  ♦, 7X, •i',2<0B.2B, ■ |■,0B.2B, “X  |•,48.2B,•|•> 

3300  FOR  lat  TO  90 

3390  FRINT  USING  337S;Fd<I >*100, Fad,  IXlOO, Rant I),Fd<l*SO>4100, Fal  1 ,  l*9S>*i00, 
Ran<l*SO> 

3400  FRINT  USING  3290 
9410  NEXT  1 
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342*  BISP 

343*  BI$r  ’  BO  YOU  UftHT  A  »|.OT  OF  THE  DC  CURVE? 

344B  BJSP 
34SB  BEER 
34iB  INRUT  R** 

347B  IF  R*$*’NO*  THEN  3C<B 
34at  PLOTTER  IS  *SB72R* 

349S  PLOTTER  7,S  IS  ON 
3SM  LOCNTE  IS,  ItS,  IS, 

3310  SCRLE  S,lHT<PU<ltS)*tSa)*t. 0.104 
3S2t  CSIZE  2 

3S3S  IF  Pd<ltO>4|St<«2e  THEN  Inx-t 

3940  IF  (Pd<l00)4l00>30)  NNB  <pd(100>*l00<>40>  THEN  lnK«2 
3990  IF  (Pd<ISS>4100>4a>  NNB  <Pd<IB0>«100<>00>  THEN  In>ta4 
3SSS  LRXCS  Inx,S,a,0,-l,l 
3970  HOVE  Inxxj, ISI 
3900  LRBEL  *P«<0>* 

3900  HOVE  S4lnx,-4 

3600  LABEL  ‘PERCENT  BEFECTIVE* 

3Sia  HOVE  0,100 

3620  PEN  2 

3630  FOR  !■!  TO  100 

3640  BRAN  Pd(t)4taa,Pa<l,l)*iaa 

3690  NEXT  1 

3660  BISP 

3670  BISP  *  BO  YOU  HAHT  A  PLOT  OF  THE  AVERAGE  SAAPLE  SIZE  TO  A  BECISIOH? 

• 

3600  BIOP 
36*0  BEEP 
3700  INPUT  R«* 

3710  IF  R40«‘N0‘  then  RETURN 
3720  PLOTTER  IS  -fOPaA* 

3730  PLOTTER  7,9  IS  ON 

3740  locate  10,100,10,100 

3790  IF  Pd(100>4100<«2a  THEN  lnx*l 

3760  IF  <Pd<l00>410S>20>  ANB  <Pd<ieo>4100<x4A>  THEN  Inx*2 
3770  Blox-***** 

3700  FOR  l«t  TO  100 

3790  IF  Asn<l>>S<d  THEN  BigxAtndl 

3000  NEXT  I 

3010  n«xyxtNT<l<fl> 

3020  n«xyxt04tHT<n«xy/lS>*t3 

3030  SCALE  0, INT(Pd<10a>4|0S>»l,0,n«xy 

3040  COtZI  2 

9090  IF  n«i(y<420  THEN  tny«l 

3060  IF  <H«xy>30>  ANB  <N«xy<«4S>  THEN  lny«2 

9070  IF  <H«xy>4S>  ANB  <Haxy<«007  THEN  lny>4 

3000  LAXEO  lnx,lny,0,0,-l,l 

3000  HOVE  Inxx/2,naxy-3 

3*00  LABEL  ‘AON* 

3*10  HOVE  94|nx,>.94lny 
3*20  LABEL  ‘PERCENT  BEFECTIVE’ 

9*30  HOVE  Pd<l>410*,A»n(l> 

3*40  PEN  2 

3*90  FOR  I«3  TO  100 

3*60  BRAN  Pd(t>*10B,Asn(I> 

9*70  NEXT  I 
3*00  RETURN 


D-3/(D-4  Blank) 


appendix  E 

MULTIPLE  SAMPLING  SOURCE  CODE 


StBt  REn  Hullipl*  tupltrig  RIftn  B**ign  ••••• 

2Bt«  BISR  * 


SB2B  StSR  • 

2a3B  BISR  ■ 

204S  B!$R  ’ 

2056  BISR  ■ 

« 

26sa  BISR  ■ 

■ 

2070  BISR  ■ 

2080  BISR  * 

2890  BISR  ‘ 

m 

2180  BISR  ‘ 

81 

2118  BISR  * 

2128  BISR  ■ 

2138  BISR 
2148  BISR  * 

2198  BISR 
21<8  BEER 
2170  INRUT  Sc 
2100  IR  Scot  THEN  4230 
2190  eosus  2210 
2200  60T0  2300 

2216  BISR 

2220  BISR  *  ENTER  THE  RCCERTRBLE  OURLITY  lEVEU.  STRTEB  AS  A  RERCEN* 

2230  BISR 

2240  BEER 

2290  INRUT  Aql 

2200  Aql -Aql /’1 00 

2276  BISR 

2200  BISR  *  ENTER  THE  LOT  TOLERANCE  RERCENT  BERECTIVE,  STATEB  AS  A  RE 

■ 

2290  BISR 

2366  BEER 

2310  INRUT  Ltp0 

2320  LtpUaLcpd^-lBB 

2336  RptleaLtpd^Aql 

2346  Row>l 

2396  RETURN 

2300  Blfr«AlS<Rdt4o-Ccpi<l,21> 

2370  FOR  I >2  TO  20 

2360  Ck«ABS(R4t<e>CeP<(I,2>> 

2396  IF  ClOOirr  THEN  2496 
2466  Row* I 
2410  Tlqr*7 

2420  IF  (Rew>4>  OR  <Ro«>0>  OR  <Reu«9>  OR  (Rew>l3>  TNEN  Tl»r>0 

2430  IF  ReH>9  TNEN  Tltr-S 

2440  Birr-Ck 

2490  BEER 

2400  NEXT  I 

2470  FOR  J«1  TO  9 

2400  Hu1t1<3,2»C«Pt<Rew,  J*3> 

2490  nult4<J,t3»CcPC<Row,J«ll> 

2900  NEXT  J 

2910  S«l«INT<Ccpt(Rew,3l)/Aql) 

2920  Ss2-INT<Ccpt(Raw,23>/'Ltpd> 

2930  IF  Ssl>S«2  THEN  Ldw*0p3 

2940  IF  SslOSsS  THEN  Lew’Stl 

2990  IF  SsI>Sr2  THEN  N4gh-Spl*l 

2906  IF  SsI<*S42  THEN  H4ghaSp2«l 

2970  Low*INT(Leu>>l 

2900  IF  LewCt  THEN  Leu«l 

2996  N4gMINT<Nlgh>*2 

2066  RlAftpsO 

2010  BISR  Low. Nigh 

2020  FOR  SpapIpaLew  TO  High 

2036  FOR  Jal  TO  TUr 


Nultipl*  Spapling  Btsign  Option* 

Potion  Bppcriotlon  Soloct  Cesi 

>Bprnprd-EnttrS'Npnpkpr'p  Reipoon  Approx i apt  1  on 
of  Spaplo  Six*  for  Rroducor'p  Ripk  of  Five 
Rorcont  S  Conpuaor'p  Ripk  of  Ton  Rtreont. 

Achitutd  Ripk*  pro  Cpiculptod  Vip  th*  Binoaip) . 1 

>nlL'STO>iaSS  Altornpt*  Rtpnp  For  Specified 


AOL,  Rroducor'p  Ripki  LTRB,  pnd  Conpuaor'p 
Ripk.  Achiouod  ripk*  pro  CpIculPtod  Vip  th* 

Binoaipl . . . . . . . . ,2 


ENTER  THE  SELECT  COBE  OF  THE  BESIREB  ORTtOH.- 
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CENT! 


S(4t 

SCSI  nekt  j 
SCSI  lECI 
SC7I 

sen  COSUI  SSI  I 
sen  C4l*i>l*c 
sril  Exp*«En 
S7II  P>Upd 
S7SI  COSUI  SSI I 
S7SI  Cbc«l4C 
3741  CxpbxEn 
37SI  bl*r(»»P1*n»*l 

S7CI  MINT  LlN<4)jSM<lC>:"0ption*1  SupHng  I'*''  •  _ 

S77I  PRINT  SPR<ll):  “Hhleh  Apprexiapt*:  Pi-oduc*r  s  R«»k  •  Sx  S  Con»u»«r  s  RKk 
19  X* 

3711  PRINT  "Th#  linopikl  Biitributipn  Point  Ettiooto  of  Prodoctr'i  Risk  it  "JCo 

1*1  09*  *!(  *  BO  « 

3791  "print  $PA(l3>i*ond  th*  Point  Ettiooto  of  Contu»»r't  Ritk  it  -iCbttllO;  ■!!,  • 

3101  IKACE  •, _ _ _ _ _ _ 


SeTi  IHACE  ‘I  Totol  ICuoulotiwo  | 

3621  inACE^’l  Ng»b«r  |Aceopt«ne«  |  Cuoulotiu#  Continwtnct  Nuobtrt 

iRojoetion  |* 

3131  I NICE  "lOf  UnittI  Nuobor  | 

)  Nuobor  1 "  ,  -  , 

3141  INACE  -IStoplod  I  <  A  >  I _ <  ?_> - - - 

SCSI  %RINt  UN<4);SPA<3C>:'Nultipto  Plon  Cpoeifitotion- 

3RCI  PRINT  USINC  3111 

3171  PRINT  USINC  2111 

3111  PRINT  USINC  3131 

3191  PRINT  USINC  3131 

2911  PRINT  USINC  2141 

3911  POR  1*1  TO  9 

3931  IP  Hulti<I,l3)xlll  then  TioroI-» 

3931  IP  nu1ti<I,13>«lll  then  2971 
2941  next  I 
S9SI  Tioro9 
S9SI  lEEP 

2971  POR  !•!  TO  Ttor 

3911  IP  Nglti<I,3><l  THEN  Stortol 

3991  IP  Nu)ti<I,2)>«l  THEN  $t«rtoHuUI<1.2>»I 

3111  POR  Sol  TO  13 

3111  Con<S>>$tort*<J*l> 

3631  IP  Con<J)ongltt<I,13>  THEN  PottoJ-l 
3131  IP  Con(S>onu1ti<I,t3>  THEN  3111 
3141  next  J 

3ICI  SISP  “Sorry!  Tho  prosroo  it  totup  to  hondlo  only  11  t ont i ng*t i on  nuoborti 
3171  COTO  2991 

3111  IP  Nu1ti<I,2)<l  THEN  TobP<l>oHuo»<II3> 

3191  IP  Nulti<I,2)ol  then  Tob»<l>oMuoP<Ilt> 

3161  IP  Nu1ti<I,3)>l  them  TobP<l>oNuoP<HuUi<l,3>> 

3111  IP  nulti<I,2)*loNulti<I,l3>  THEN  Nconto* 

3131  IP  Nulti(I,3}«|oHu1ti<I,13>  THEN  3171 
3131  POR  Jol  TO  Pott 

3141  IP  Con(S»l  THEN  TobS<J*l>oNuot(lll> 

3ISI  IP  CenfSlOl  THEN  TobK J*t >oNuo«<Cen( J>> 

3 I SI  NEXT  ] 

3171  POR  JoPott*!  TO  11 
3111  TobSfJrllo'XNN* 

3191  NEXT  J 

3211  IHACE  ♦,“i“,lX,CD,lX,*|“,4X,3A,4X,*|K|-,ll<3A,“|“>,lX,IB,lX,'|- 

3211  PRINT  USINC  339d;Nulti(I,t>,TobS<l>tTobP(2>>TobP(3>.TobP(4>,Tobt(S>.Tobt(S 

>,Tobl(7>.TobP(S>,TobS<9>,TobP<ll>,Tobl<ll>.TobP<12>,nu1ti(I, I3> 

3221  PRINT  USINC  2111 
3231  NEXT  I 

3241  PRINT  LIN<3>;SPA(3lli “A  cooploto  ritk  ottottotnt  it  obtoinob't  by  * 

32SI  PRINT  SPA(2I>; “oxorciting  Option  9  of  tho  Holn  Nonu.* 

32SI  NEXT  Stop 10 

3271  IP  PlontOI  Then  RETURN 

3211  IP  Plont*!  Then  PRINT  *  No  plont  uoro  found  uhich  totitfiod  tho  dotign  tol 
oroncot  you  tpoeifiodl* 

3291  IP  Plont'l  THEN  PRINT  *  If  you  uioht  you  con  uidon  tho  dotign  toloroncot  0 
n  Producor'o  ond  * 
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330#  IF  F)an*«0  THEN  PRINT  •  Centuacr's  Risk  »nd  r«-«i<*cut#  ihi»  option. 
3310  IF  Plont«0  THEN  PRINT  “  IF  YOU  HUNT  TO  BO  THIS,  ENTER  YES. 

3320  IF  P1«ni>0  THEN  PRINT  *  OTHERUISE,  ENTER  HO. * 

3330  BISP 
3340  BEEP 
33S0  input  Rt« 

3300  IF  Ro««*HO’  THEN  RETURN 

3370  GOTO  2100 

3300  REN  BINOnIRL  SUBROUTINE 

3300  IF  ($>>«0>  OR  (X<0>  THEN  Prob«0 

3400  IF  (S-X<0>  OR  <X<0>  TNEN  RETURN 

3410  IF  (S-X«0>  OR  <X>0>  THEN  Prob*P^X*(l-P>n<S-X> 

3420  IF  (S-X«0>  OR  <X«0>  THEN  RETURN 

3430  Prab*l 

3440  FOR  It>I  TO  X 

34S0  Preb*Ppeb*P 

3400  NEXT  !• 

3470  FOR  Is«l  TO  S-X 

3400  Preb*Prob*<<X*It>.'I*>*<l-P> 

3400  NEXT  I» 

3S00  RETURN 

3510  REH  PR  0  EH  BRILL 

3520  SaNult1(l,t> 

3530  St«pt>l 
3540  Ptn«0 
3550  P&c>0 

3500  EnoHuIttd,!) 

3570  FOR  X*0  TO  nuUt<t,13)>l 
3500  COSUB  3300 
3500  Can<X*l>aX 
3000  Cenp(X*t>BPpeb 
3010  NEXT  X 

3020  IF  nu1t«<l,2>>a0  THEN  3070 
3030  FOR  K«0  TO  Nultt (1. I3>>1 
3040  PtnaPtn*C4np<X«I> 

3050  NEXT  X 
3000  GOTO  3750 

3070  FOR  Xa0  TO  nuU1<l,I3>*l 

3000  IF  Cen<X*l><«nultl(l,2)  THEN  P«<>P«e*Cenp(X*l > 

3000  IF  e«n(X*l)>Hu1t«<l,3>  THEN  Startax«l 
3700  IF  Con<X*l>>nuUI(l,2}  THEN  3720 
3710  NEXT  X 

3720  FOR  X«StbP\  TO  nuUt<l,I3> 

3730  P«naP«n*Cenp<X) 

3740  NEXT  X 

3750  CnaEn*P4n4<Nul t ( <2, 1 >-Hu1 1 1  < 1 , 1 >  > 

3700  P4C*pa| 

3770  FOR  UaStvt  TO  Nu1«t<I,131 
3700  T4b1*<Pac«p, l>aCen(It> 

3700  Tab1«(Pat*r,2>>Conp(lt> 

3000  FactraP«c4P*l 
3010  NEXT  Is 
3020  Pactpap«ctp-1 
3030  FOR  Ia2  TO  Tier 

3040  P*n>0 

3050  IF  Nult<<l-1.2><0  THEN  Stv-t«0 

3000  IF  nuU1<l-l,3>>>T  THEN  StartaRul Si  tl-l.E)*-! 

3070  FOR  IsaSsvs  TO  Nsis  i  <1, 131-1 

3000  Cendsallals 

3000  Cenp<ls*l>a0 

3000  NEXT  Is 

3010  FOR  ls>l  TO  Pac«r 

3020  X>0 

3030  COSUB  3300 

3040  BtfaTabltds,  1>«X 

3050  PrdtFaTabl«<Is,2>*Ppeb 

3000  FOR  IsaSsars  TO  Hulsid, 131-1 

3070  IF  0«f>Cen< Is*l  1  THEN  Conp< ls«l  l«Cenp<Is*|l*ppd«f 
3000  IF  OtTaCenSIs*!!  THEN  40x9 
3000  NEXT  I» 

4000  IF  Bafanulsl <1,131-1  THEN  4030 
4010  XaX*l 
4020  GOTO  3030 
4030  NEXT  Is 

4040  IF  Hu)sld,21<0  THEN  4100 
4030  FOR  IsaSsars  TO  Huls 1 < 1 , 131-1 
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4ec« 

IF  Cen(It*l><*nuUt(l,2>  THEN  P4C«F4C*Con9< U*! > 

4076 

IF  Con<  lt«l  ><>nuU  i  <  1 ,2)  THEN  $t4rt«St4rt*l 

4080 

NEXT  It 

4090 

IF  nuUi(I,2>*l*nuUi(I,13>  THEN  4210 

4100 

FO0  It«St4rt  TO  HuUl<l,13>-l 

4U0 

Ftn^Ftn^Conptlt*! > 

4120 

NEXT  It 

4130 

En4En*Ftn*(nul  t  i  (I'*!,  1 1'Hult  1  (1, 1>> 

4140 

F4e#r«l 

4130 

FOR  It«St4rt  TO  Hul t i < I , 13)-1 

4100 

T^W(P*ctr-|  1  )«Con<  1  t«l  > 

4170 

T4blt(F4e*ri2l4Cenp(It*l> 

4100 

F4C»r»F*c*r*l 

4190 

NEXT  It 

4200 

F4<4r*F4e#r-l 

4210 

NEXT  I 

4220 

RETURN 

4230 

COSUE  2210 

4240 

srsF 

4230 

Tlor«7 

4200 

Ccrlt«l 

4270 

SISF  ‘ENTER  THE  PRODUCER'S  RISK,  STATED  AS  A  PERCENT!  ‘ 

4200 

DISP 

4290 

■CEP 

4300 

INPUT  Alph4 

4310 

PI ph4«P 1 phA^ ld9 

4320 

SISP 

4330 

DISP  ‘ENTER  the  CONSUNER'S  RISK.  STATED  AS  A  PERCENT!  ‘ 

4340 

SISP 

4330 

DEEP 

4300 

INPUT  1*14 

4370 

■•t44Btt4/100 

4300 

FOR  Pl4nat  TO  IS 

4390 

Pl4n(a0 

4400 

FOR  4t4l  TO  7 

4410 

Hul  1 1  <4t»2>i>n$pt  Ar<P1  on,  Ji  at) 

4420 

Hult  <  < Jt , 13>an»pl4r<Pl4n, Jt ,2) 

4430 

NEXT  Ji 

4440 

DEEP 

4430 

FOR  t44pl«at  TO  21 

4400 

FOR  P4*»al  TO  7 

4470 

Nglt 1 (P440, l>aP4tt*nspl4n<S4ap1*> 

4400 

NEXT  P4SS 

4490 

PaARl 

4300 

COSUI  3310 

4310 

C4lal>P4C 

4320 

SEEP 

4330 

En4l aEn 

4340 

PaLtpd 

4330 

COSUt  3310 

4300 

Cb4aP4C 

4370 

Cplta((C4l'AlpN4>*2*(Cb«-ltl4)a2>''.9 

4300 

IF  <Cp«t>CcrU>  AND  <Pl4ns>0>  THEN  3070 

4390 

IF  CPltlCcrlt  THEN  3020 

4000 

CCPltaCrlt 

4010 

PRINT  LlN<4>;$PP<d>t *Tho  SAoplino  pton  tpocffltd  Ptiou  it  tHt  clotttt  tx4  1 

■  <nt« 

thupf4r* 

4020 

PlAns«P1«ns«t 

4030 

PRINT  ‘Uhlch  ApproKla4t*t:  Preduor'*  Risk  a>;R|ph4al00; ‘X  i 

»k  ■* 

;lct44i00i‘x*:LiN(i) 

MINT  "Th*  SlnoalAl  Dfstrtbutfen  Point  Cotlaott  of  Produeor' 

s  Risk  Is  ‘;C4 

^^5®  tPH(S2>a*And  tho  Point  Estlooto  of  Conouoor'o  Plok  it 

•;Cb«*l00;‘X,‘ 

4000 

PRINT  LIN(4>;SPR(20>:*Hulttpl«  Pl4n  Sp«cirtc4t1en* 

4d7d 

PRINT  USING  2000 

4000 

PRINT  USING  2010 

4090 

PRINT  USING  2020 

4700 

PRINT  USING  2030 

4710 

PRINT  USING  2048 

4728 

FOR  lal  TO  Tlsr 

4730 

IF  Hultl  (1,2X0  THEN  St4rta0 

4740 

IF  HHltl(I,2>>a0  THEN  St4rtanultl<I,2>*l 

4730 

FOR  Jai  TO  12 

4700 

Cen( J>aSt4rt4( J-1 > 

4770 

IF  ContJ>aHultl<l,13>  THEN  p4SSaJ-l 

47te  IF  Cen(J>anu1ti<t,l3>  THEN  4S3I 
47«3  NEXT  1 
4IM  BISF 

4IS(  DltF  ‘Serryl  THt  pregraa  t*  S4tup  to  hondlt  only  tl  <entinu4tton  nuopori' 
4t3t  GOTO  47(« 

4t3*  IF  nultIC.SX*  then  T4bP<l>«Huo«<l«2> 

4I4*  IF  nu1t1(I,2>o«  THEN  Tab*(l»NupP<lCt> 

43St  IF  nu1tUI,2>>*  THEN  TobFd  >«Nua«Hut  t  UI,2>> 

4SSt  IF  nultt<I,2>*loNuU<<I,13>  THEN  N<ont«* 

4«7e  IF  nultUI,2>*loNuUMI,13>  THEN  492t 
4Mt  FOR  3*1  TO  Fat* 

4S90  IF  Cen<J>oO  THEN  T«b«( J*t >«Nua«< tOt > 

4»e0  IF  Cen(J><>0  THEN  T4b«<J*l>«Hua«<Cen<J>> 

4*]*  next  J 

4930  for  J>Fasa*l  TO  II 

4930  Tabt<3*l>a*XXX* 

4940  next  J 

4950  IHRCE  ♦.•|•,IX,«D,IX,•|•,4X,3R,4X,•|X|•,II<3R.■|*>.IX,•1),IX,‘|■ 

49(R  PRINT  USING  49SSinult< <1,  l).Tab«<l>,T4b«<2>.Tap«(3>.Tab*<4>,Tab*<S>,T*bt(C 
•\  Tab*(7>,Tab«tt>,TaP*(9),Tap«(IS).Tab«<tt>.TaPF<l2>.HuU  i<l,  I3> 

497t  PRINT  USING  49St 

4951  InRGE  ■ _ •,ll<" _ *>,• _ ■ 

499S  NEXT  I 

sees  PRINT  tIN<2);SPR<3S>;*R  coaplat*  riik  as44«4aont  i»  obtainabit  by  * 

SSIS  PRINT  SPR<2S>i ‘totrclalng  Option  S  oF  tho  Nain  n*nu.* 

S82S  KISP  "Plan  ••{Plan;"  ulth  Incroaontal  aaapi*  aizt*  of  •;nuUi(l,l> 

S03S  NEXT  Saapt* 

SS4t  SISP 

SaSS  BISP  TRB<P1an44>:'Now1ng  to  Plan'iPtan 
SaSS  BISP 
9878  NEXT  Plan 
9888  RETURN 
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APPENDIX  F 

SPECIAL  PURPOSE  ASSESSMENT  SOURCE  CODE 


appendix  F 

SPECIAL  PURPOSE  ASSESSMENT  SOURCE  CODE 


:•••  *cn  •••••*  $nCi«L  DC  CU*Vt  k  HtN  AttlSSnCNT  . . 

inMCi  • 

inAei  M  ^•*•1  ICiMuutivt  I 
|Cuau)«t  t V*  I* 

S(It  innCC  *1  Nwabvr  |M(c*ptbn(t  |  CuaulMiwt  Cent<nb4’>ct  Nuabtrt 

I*  ; 

£•4*  IMS!  *  Of  Un«tt  NuBb*r  |  . 

I  Nuabcr  |  * 

£•50  IIMCC  ’Itwlta  I  «  0  )  I  «  C  > _ 

I  it  >  !• 

ilA  MlNri!M(4);tM<£«>i*Hu1t<bU  rian  SMCificattsn* 

£•70  7IIIHT  UtlNO  £•!• 

£•••  MINT  Ut!N6  £•£• 

£0tt  POINT  UttNe  aOM 
£1M  POINT  USINC  3040 

£110  POINT  USINC  asso 
£ias  POO  !■!  TO  SI 

£110  PaafO 
£140  Tl«r«l 
£1*0  SISP 

£l<0  tISP  *  INTIO  THC  NUnttO  OP  UNITS  SONPLCS  TO  OECISICn  PSINT.  NUHStO 

'il 

£170  aiSP 
£100  ttIP 

£100  INPUT  HuU)(l,l) 

aaoo  oisp 

££10  SISP  *IP  TNI  lot  can  SC  ACCCPTCS  AT  TNIS  POINT,  INTCO  T>t  ACCCPTANOr  HUH 
SCO  •  ’ 

£320  SISP  *IP  TnC  lot  CAN  NOT  SC  ACCCPTCS  AT  THIS  POINT,  CnTIO  A  NCCATIVC  N 
UnSCO.  • 

£220  SISP 
2340  SCCP 

£200  input  Hwti1(I,2> 

22<0  SISP 

2370  SISP  *IP  TNC  lot  CAN  SC  OCJCCTCS  AT  THIS  POINT,  CNTCO  TnC  OCJCCTIDH  NunS 

CO  • 

2200  SISP  *IP  TNC  LOT  CAN  NOT  SI  0C3CCTCS  AT  TNIS  POINT,  CnTC»  a  nCCATIVC  n 

imsco.  • 

2300  SISP 
£300  SCCP 

2310  Input  huui(I,i3> 

2330  IP  HuUKi.aXO  Then  2340 

2330  IP  RuUl<I,a>*lNnuU«<l,13>  TnCN  3440 

2340  NCKT  I 

£300  SISP 

SSSO  SISP  *  SOAOYI  TNC  POOCOAn  IS  CUOOCNTLV  SETUP  TO  MAnOlC  U  TICOS,  SCI 
Pat  Lawlar* 

2370  SISP 

£300  SCCP 

£300  POO  !■!  TO  30 

£400  SISP 

2410  SCCP 

2430  NCNT  I 

2430  STOP 

2440  POO  !■!  TO  Titr 

2400  IP  n«i1t«(I,31<0  TNCN  StartM 

2400  IP  Nu1t<CI,3)>aO  TNCN  StartanuUI<l,2>*l 

2470  POO  3al  TO  13 

2400  Can<3»StaPt*<3>l) 

2400  IP  epn<3>anult4(I,13>  TNCN  Paaa«J-t 
2000  IP  Can<J)anuU1(I,l3>  THEN  2000 
2010  NEXT  J 
£030  SISP 

2030  SISP  *Serryl  Th«  araoraa  <a  tttua  ta  handl*  only  II  centin^snen  nuhbort' 
2040  SOTO  3370 

2000  IP  NultXI.axO  then  TaaP(t»NuaP<l02> 

2000  IP  Rult<<I,3>aO  then  TabS(l>aNwBP<10l> 

£070  IP  HuUI(I.3>>0  TNCN  TabP<t>>NunP(nult<<I,3>> 

£000  IP  Hu1t4<l,3)*l«nw1t4<l,131  then  NcentaO 
£000  IP  NuU«<J,ai*|anwltXI,13>  TNCN  3040 
2000  POO  3«l  TO  Pa*a 

£SlS  IP  ConCJlaO  THEN  TabP<7*l >«NuaP(101 > 

2030  IP  Con<3X>S  TNCN  Tabt<3*l»Nuaf <Con(J>> 

£030  NEXT  J 


F-1 


2C4t  FOR  J*F4»**1  to  11 
2(90  T4b«<J*l>a*XXX* 

2«0  NEXT  J 

2670  IBROe  ♦•■i',lX,tB,lX,-l-,4X,3R,*X,*|xl-,ll<3«,*l*>,lX,»J,lX,‘l* 

MINT  USING  2S70;nuU  i  1 1, 1  >,  T4B*(1  >.T4bt(2>,T4bt(3>,T4bf  <4>,T4b>(S>,  Tabtcs 
>,T4b*C7>,T4bt<t>,T4bt<S>,T4bt(ie),T4b*(tl>,T4b«<121,nuUi  (1, 13> 

2SS0  FRINT  USING  iUt 

270*  NEXT  I 

2710  GOTO  322t 

2720  REn  lINOnIRL  SUBROUTINE 

2730  IF  (S*X<B>  OR  (X<S>  THEN  FrebaR 

2740  IF  <S-X<R)  OR  (X<R>  THEN  RETURN 

2790  IF  (S'XaBI  OR  <Xai>  THEN  FrebaF*X«( 1-F>»<S-X) 

27<0  IF  <S-XaB>  OR  <XaS>  THEN  RETURN 

2770  Frobal 

2700  FOR  Ual  TO  X 

2799  FrebaFrobaF 

20M  NEXT  1 4 

2RI0  FOR  Ital  TO  S-X 

202i  FrebaFreb*<<X*ts>/'!»>a(l.F> 

2R30  NEXT  It 

2940  RETURN 

2999  REN  NYFERGEONETRIC  SISTRIBUTION 

2999  IF  X<9  THEN  Fraba9 

2979  IF  K<9  TNEN  Froba9 

2999  IF  K<9  TNEN  RETURN 

2999  IF  X>K  TNEN  Fr4b«9 

2999  IF  X>K  TNEN  RETURN 

2919  IF  (Ka9>  RNB  <Xa9>  THEN  Frobal 

2929  IF  <Ka9>  RNB  <Xa9)  THEN  RETURN 

2939  IF  X<9  TNEN  RETURN 

2949  IF  X>N  TNEN  FrobaR 

2999  IF  X>N  TNEN  RETURN 

2999  Frobal 

2979  F<l>aK 

2999  F<2>aNaK 

2999  F<3)aN 

3999  F<4>aN>N 

3919  F<9>aX 

3929  F<9>aK>X 

3939  r(7>afl.x 

3949  F<9)«N>K>naX 

3999  F(9>aN 

3999  FOR  loa]  TO  9 

3979  IF  F<Is><l  TNEN  F<U>al 

3999  NEXT  lo 

3999  FrobaFrobaF<l>aF<2>aF<3>aF<4>/’<F(9>aF(9>«F(7>aF<9>aF<9>> 

3199  FOR  loal  TO  9 

3119  F<lo)aF(lt>>l 

3129  IF  FdoXl  TNEN  F<I»>al 

3139  NEXT  I» 

3149  Cka9 

3199  FOR  loal  TO  9 

3199  IF  FCloIal  TNEN  3199 

3179  Ckai 

3199  NEXT  lo 

3199  IF  Cka9  TNEN  RETURN 

3299  GOTO  3999 

3219  RETURN 

3229  BIEF 

3239  BISF  *  BO  Y0«  HRNT  TO  IRSE  YOUR  RISK  CRtCULRTIONS  ON  R  FINITE  LOT  SI2E? 


BI9F 

BEEF 

INFUT  RoO 

IF  RobaavES*  TNEN  BlttOa’NYFER* 

IF  Ro9a«vES’  THEN  BISF 

IF  Rota-YES*  TNEN  BISF  TRB(39>; 'ENTER  THE  LOT  SIZE.* 
IF  RoOa<YES‘  TNEN  BISF 
IF  Rtfa'YES*  THEN  BEEF 
IF  RoOa'YES'  TNEN  INFUT  Lot  so 

REN  aaaaataaaaaaaaaaaa44444aaa#aaaaaaaaaaa*aaaa 
IF  Rofa-YES'  THEN  9249 

REH  aoaaaaaa^^aoaaaaaaaaaaaao^taaaaasaaaaaaaaa* 

IF  RoSa'NO'  TNEN  Bf otta'BINOHIRL* 

Fa. 91 
REN 


33tt 

348* 

3418 

3428 

3438 

3448 

3498 

3488 

3478 

3488 

3488 

3988 

3918 

9928 

3938 

3948 

3998 

3988 

3978 

3988 

3998 

3888 

3818 

3828 

3838 

3848 

3898 

3888 

3878 

3888 

3898 

3788 

9718 

3728 

3738 

3748 

3798 

3788 

3778 

9788 

3798 

3888 

9818 

9838 

9838 

9848 

9898 

3888 

9878 

9888 

9898 

9988 

9918 

9938 

9998 

8948 

3998 

3988 

3978 

9988 

9998 

4888 

4818 

4838 

4898 

4848 

4898 

4888 

4878 

4888 

4898 

4188 

4118 

4138 

4198 

4148 

4198 


C08UI  3418 
GOTO  4128 
S'HuUid.U 
t4  4rt«l 

7«n»8 

74C«8 

CnaHultX!,  1> 

FOR  ll■8  TO  nultt(1.13)>l 

C0SU9  2738 

Cen<K*l)»( 

ConpOt*!  laFreb 
NEXT  X 

IF  Hult1<l,2>>«8  THCN  3988 
FOR  X«8  TO  flultdl,  13>-1 
F*naF*iv*Cenp  1 1 
NEXT  X 
GOTO  3848 

FOR  X48  to  nultUl,13>-l 

IF  C«n(X*l><aNuttl<l|2)  then  F«c«F«c«Conp(X*l > 

IF  C4n(X*l>>Hutt*<l,3>  THEN  tt4rt>x*l 
IF  Can<X«l)>llult<<l,3)  THEN  3818 
NEXT  X 

FOR  X«St4rt  TO  nult(<l,13> 

F*nBF*n4Cenp<X> 

NEXT  X 

EnaEn*F«n4<RuUi<3,l>-HuU4<l,  t>> 

Fpctr*! 

FOR  lt*8t«rt  TO  nult«<l,l3> 

T«b1*<Fpc*ril>aCe4<!t> 

T4b1t<F4C4r,3>aConp<lt > 

F«««r*F4e*r*l 

NEXT  It 
F4C4rBF4e«r-l 
FOR  fa  TO  Tier 

F4na8 

IF  nuU4(l-t,31<8  then  8t4rt«8 

IF  Hu1t«(I>t.3>>«8  then  St4rt4HultUI>t,3>4t 

FOR  lt«8t4Pt  TO  Hutt«<l,19>>l 

een<lt*l>a|t 

Cenp<lt*l)48 

NEXT  It 

FOR  It«l  TO  F4«4r 
X«8 

GOSUt  3738 
9tr*T4bl4<It,l)*X 
FrOtf 47481 1 < 1 1 « 3>4Fre8 
FOR  I*4St4rt  TO  Hul t 1 <1, 19>«1 

IF  OtfaContla*!)  THEN  Cenp<U*l>4Conp(U*l>*Frdtr 
IF  8«FBCon<l44|>  THEN  9898 
NEXT  l4 

IF  ••rafhilt«<I,l9>-l  THCN  9938 
X4X4I 

GOTO  9838 
NEXT  It 

IF  l•ultUI,3><8  THEN  9998 
FOR  ItBRtart  TO  Htilt « (1, 19>>l  t 

IF  eon<It«t)<4nu>t1<l,3>  THEN  Fac4F4^*Canp< It*l > 
IF  Cen(lt«l)<4nuU<<l,3>  THEN  St4rt48tart*l 
NEXT  It 

IF  nuU<<I,8>*l4HuU«<l,19>  then  4188 
FOR  It48t4rt  TO  Hul t « <1, 19>'l 
Ftn4F«n*Cpnp  < 1 1 « 1 7 
NEXT  It 

En4En«Fpn4<nuU  1  <  1*1 , 1  l-Hul  1 1  <  1, 1  >  > 

F4*«r4l 

FOR  ItaStart  TO  Htilt  1  <1, 13>-t 
Tpbl  t<F4«9r ,  1  >4Co»><  lt*l  > 
T48I*<F4C«rt3>4Cef>p<It*l> 

F4e4r4F4e«r*l 
NEXT  It 
F4e*r4F44tr-l 
NEXT  I 
RETURN 

IF  Fac<.83  THEN  4188 

REEF 

F*F*.81 

GOTO  9988 
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417*  »l*7  ‘TW  7HMM1LITV  OF  RCCtPTBNCE  IS  *JP4ti‘  FOR  R  PERCENT  BEFECTIVE  OF 

4!M***ifP  •  the  expected  SRnPLE  NuniER  IS  *:En;*  *T  THIS 

41*5  DISP  •  ENTER  THE  HRXIHUH  VRLUE  OF  PERCENT  “^JS^TIVE  YOU  NISH  TO  IE 

42eS  DISP  ■  SHOHH  OH  THE  OC  CURVE.  THIS  ENTRY  HOST  BE  HRDE  RS  R  PERCENT. 


4210  B 
4226  I 

4236  1 

4246  r 

42S6  I 

42S6  I 

4276  I 

4266  ( 

4266  I 

4366  I 

4316  I 

4326  I 

4336 

4346 

43S6 

4366 

4376 

4366 

4366 

4466 

4416 

4426 

4436 

4446 

4496 

4466 

4476 

4466 

4466 

4966 

4916 

4926 

4936 

4946 

4996 

4966 

4976 

4966 

4966 

4666 

4616 

4626 

4636 

4646 

4696 

4666 

4676 

4666 

4666 

4766 

4716 

4726 

4736 

4746 

4796 

4766 

4776 

4766 

4766 

4666 

4616 

4626 

4636 

4646 

4696 

4666 

4676 


DISP 

BEEP 

input  Pb«x 

n4*K*lS4<INT<P»4M.'l8>«l>*l 

for  if*!  to  166 

P6(ir>*lf4p44x/166 
P*P6(IF>^166 
COSUB  3416 
P4CI,IF)*P4e 
DISP  P4<1,IF> 

RindFl'En 
NEXT  IF 
BEEP 

PLOTTER  IS  *66726* 

PLOTTER  6,9  IS  ON 

LOCRTE  16.166,16,166 

SCRLE  6,n4«x,6,163 

IF  n4xH<«26  then  Inx«l 

IF  (n4xx>26>  RND  <H4xx<x4e)  THEN  Inx*2 

IF  <H4xx>46>  RND  <H4xx<x66>  THEN  lfix«4 

IF  n4xx>66  Then  Inx*S 

CSIZE  2 

LRXES  tna,S,6,6,«t,t 
HOVE  4*1hx,-6.6S 

lrbel  •percent  defective* 

HOVE  !nx^3,t61 
LRBEL  *P4«lt)* 

HOVE  6,166 
PEN  2 

FOR  !■!  TO  166 

DRRU  P6(I>,P4(1, 1)4166 

NEXT  I 

HOVE  126,266 
filtP 

DISP  •  DO  YOU  HRHT  RHY  OF  THESE  POINTS  PRINTED?  * 


DISP  •  DO  YOU  HRHT  RHY  OF  THESE  POINTS  PRIHTSBT 

DISP 

BEEP 

input  RvS 

IF  Rt6"*H0*  then  4696 

IHRCE  12X,*  r! 

IHRCE  12K.» _ Rv«r49« 

IHRGE  12X,*|  p«r«4nt  Ree4pT4n«t  S4»pl4  * 

IHRCE  iax.*lD4F«tt< v>|Prcb461 1 ttvlNu4&«r  1* 

PRINT  USINC  4S66 

PRINT  USING  4SI6 

PRINT  USINC  4S26 

PRINT  USINC  4S36 

IHRCE  -,  12X.  *1*. 9D.  2D,  *!«  I  * ,  YD. 2D.  **1  *.SD.  ID*  | * 

IHRCE  12X.* _ _ _ * 

DISP  *  enter  the  percent  defective,  STRTED  RS  R  PERCENT. 

DISP 

BEEP 

input  Pcrd 

P4p*r6/|66 
COSUI  3416 

PRINT  USINC  4S66iP«rd,P4C4l66,Cn 

PRINT  USINC  4666 

DISP 

DISP  TRltZS);*  DO  YOU  URNT  RNYHORE?  * 

DISP 

BEEP 

input  Rfd 

IF  R4i**YE6*  THEN  4766 
DISP 

DISP  *D0  YOU  HRNT  R  PLOT  OF  THE  RSN  CURVE?* 

DISP 


4ISt  IIEP 

INPUT  Rt« 

«tM  IF  R«t«'NO’  THEN  RETURN 

4y>«  PLOTTER  1$  ‘«S72fl- 

4»20  PLOTTER  7.S  IS  ON 

4930  |tg«-9999 

4940  FOR  I«t  TO  ISO 

49S0  IF  Rtn(I>>lig  THEN  tlg>R*n<l> 

49S0  NEXT  I 
4970  BISP 

4980  BISP  ■  THE  largest  ASN  IS  ';Btg 

4998  BISP  *  ENTER  THE  HAXIHun  ASH  YOU  UANT  SHOWN  ON  THE  PLOT.  ■ 

S888  BISP 

S818  BEEP 

S838  INPUT  n*xy 

9838  LOCATE  18,188,18.188 

9848  SCALE  S,H«xx,8,H4xy 

9898  BISP 

9888  BISP  *  UHAT  LABELING  INTERVAL  BO  YOU  UANT  ON  THE  Y  •.xi»?- 

9878  BISP 

9888  BEEP 

9898  INPUT  Iny 

9188  CSIZE  3 

9118  LANES  lnx,lny,8,S,-l,l 

9128  HOVE  Inxx3,n4xy-3 

9138  LABEL  ‘ASH- 

9148  AOVE  44lnx,-H«xy/20 

9198  LABEL  ‘PERCENT  BEFECT1VE‘ 

9188  HOVE  O.HullUl.l) 

9178  PEN  2 

9188  FOR  lal  TO  188 

9198  IF  !■!  THEN  HOVE  P8<I>,Asn<I> 

9288  BRAN  P8(I>,A»n<I> 

9218  NEXT  I 
9228  ROVE  988,988 
9238  RETURN 
9248  BISP 

9298  BISP  ’  YOU  HAY  START  THE  SEARCH  PROCEBURE  BY  ENTERING  THE  INIT!  huhBE 
R  OF  • 

9288  BISP  ’  BEFECTIVES  PER  LOT.  A  RECOHHENBATION  IS  HABE  THAT  THIS  V...UE  BE 
IRX 

9278  BISP  *  OF  THE  LOT  SIZE.  RCnEHBCR,  THIS  ENTRY  RUST  BE  AN  INTEGER! 

• 

9288  BISP 
9298  BEEP 
9388  INPUT  K 
9318  Bad-K 
9328  COSUB  9348 
9338  GOTO  8848 

9348  REN  NYPERCEOHETRIC  EVALUATION  OF  SPECIAL  PLAN 
9398  N«L4«St 
9388  Start >8 
9378  n>Hult«<l,l) 

9388  FOR  XM  TO  HuUUt,13>-I 

9398  eOSUB  3898 

9488  Tak1v<X*l,l>xN 

9418  Tablt<x*l,2»Preb 

9428  NEXT  X 

9438  PacM 

9448  EnaHultKl.l) 

9498  Ptn-S 

9488  IF  Hg1t«<l,3><8  THEN  StartxS 

9478  IF  HuU«a,2)>M  THEN  Start>Hu1t«<l,2>*l 

9488  Cent<n4Hu1t<(l,13>>l 

9498  CefmuaaCont  tn-Start«l 

9988  FOR  It«l  TO  Connua 

9918  C8n<It>>Start*lfl 

9928  NEXT  It 

9938  FOR  It-l  TO  HwUt<l,13> 

9948  IF  TaBI«<It,l><4Hultl<l,2>  THEN  Pac«Pae*Tabla<lt,2> 

9998  IF  Ta»la(It,l><«HuU«<l,2>  THEN  9888 
9988  FOR  la*l  TO  Connua 

9978  IF  TaBlt<It,l»Con<U>  THEN  Conp(Ia»TaMo(It,2) 

9988  IF  Tab1t(It,l>xCan(Ia>  THEN  9888 

9998  NEXT  la 

9888  NEXT  It 

9818  FOR  Ian|  TO  Connua 


S<2t 

7tnBp«n«Cenp<  1  ft  > 

SC3* 

NEXT  Ift 

S<4t 

tn«En*Pftnft(nul t « (2, 1 >-Hul 1 1 < 1 , 1  >  > 

9C9» 

FOR  1«2  TO  T4*r 

9«9 

NftLfttzt'Xult  4 (l-li 1> 

9«79 

n«nuit4(l,i>*nuii4(i-i,i) 

9<«« 

Start >9 

3<*« 

FOR  Ital  TO  CennuB 

579a 

Kftlad-Condtl 

5719 

L4BB(ItlaNult4<l,13>-Cen<lt>-t 

5729 

FOR  Xft9  TO  Ltaadt) 

5739 

COSUI  2999 

5749 

F4  9p<lt,X*ll«Frob»Cor>pdt> 

5799 

F4gdt,X«l>*X'>Cen<It> 

57C9 

NEXT  X 

9779 

5799 

IF  Nult4d,2>>«a  THEN  8tart«Hul  1 1  <  1 . 7'rl 

9799 

Cent4naHult4<I, 131-1 

5999 

L  4  paCent  4  n-St  art  ft 1 

5919 

FOR  Ital  TO  L4a 

5929 

Cendt  >a9tartftlt-l 

9939 

CanptltlaR 

9949 

NEXT  It 

9999 

FftnaR 

99<a 

FOR  Ital  TO  Cennua 

9979 

FOR  Xaa  TO  l.4Ba<It> 

9999 

IF  F4g<It,Xftl><anu1t4<I,2>  THEN  FacaPacftF4gp<It,Xftt> 

5999 

IF  F4o<It,Xftll<aHult4<I,2>  THEN  59(9 

9999 

IF  Nu1t4<I,2>ftlaNult4d,t3>  THEN  59(9 

9919 

FOR  Jtal  TO  L4a 

5929 

IF  F4g<It,XfttlaCen<Jt>  THEN  Cenp(JtlaCanp(3t>ftF4gpdt,Xftl> 

9939 

IF  F4g<lt,XftllaCon<Jt>  THEN  F*naF*nftFlgp<It,Xftl> 

9949 

IF  F4g<It,Xftl>aeen<Jt>  THEN  59(9 

9999 

NEXT  Jt 

59(9 

REN 

9979 

NEXT  X 

9999 

NEXT  It 

9999 

ConnuaaL  4  a 

(999 

Ena(nftFtna<Hult4  dftl,  l>-nuU4<I,l>> 

(919 

XEF 

(929 

NEXT  I 

(939 

RETURN 

(949 

IF  Fact. 92  THEN  (149 

(959 

SISF 

(9(9 

B1$P  *llh«n”:9«dS*  artstni  in  %ht  lot,  *  1 

(979 

SISF  *  NOLB  ON  I  RH  IHCRERSING  THE  BEFECTIVES  TO  SCOFE  OUT 

THE  OC  CUR 

VC! 

• 

(999 

BISF 

(999 

Ckai9ftiHT<Badrl9> 

(199 

BadaCkfttO 

(119 

KaBad 

(129 

BEEF 

(139 

GOTO  9319 

(149 

BISF 

(159 

Of 

BISF  •  IF  THE  SUBNITTEB  LOT  COHTRIHS  -iBadl ‘BEFECTIVES,  THE 

FROBRBILITY 

(1(9 

BISF  •  RCCEFTRNCE  IS  ‘iFac;*.  * 

(179 

BISF  ■  ENTER  THE  HRXIRUn  NUMBER  OF  BEFECTIVES  FER  LOT,  YOU 

URNT  SHOWN 

(199 

BISF  *  ON  THE  OC  CURVE.  THIS  ENTRY  RUST  BE  RN  INTEGER! 

(199 

BISF 

(299 

BEEF 

(219 

INFUT  HaxK 

(229 

IF  naxx<al09  THEN  Incxa| 

(239 

IF  HaxxtalOS  then  L4aaHaxx 

(249 

IF  naxx<ai09  THEN  (329 

(299 

BISF 

(2(9 

BISF  *UHRT  IHTERVRL  BO  YOU  URNT  BETWEEN  SUCCESSIVE  BEFECTIVES 

FER  LOT?  • 

(279 

BISF 

(299 

L4Ba|00 

(299 

HaxxaHaxxftB 

(399 

BEEF 

(319 

INFUT  Incx 

(329 

FOR  Ifal  TO  L4b 

(339 

Xalfalncx 

C34«  l4d«K 
C3S*  COSUI  934* 

C3C9  r«(l.ir>>r«c 
C37«  Pd(lf»l4d 
fi3M  tlS7 

6399  8IS9  ■;S4d:-‘  d*f  re  t  iwcs/lot :  94>‘:94C*l9ai  *)c  4  dSN«-;En 

6409  SISP 

6419  l»P 

6429  94n(lr)>En 

6439  SISP 

6449  NEXT  If 

6499  PLOTTER  19  *9972R* 

6469  PLOTTER  7,9  It  ON 
6479  LOCRTE  19,199,19,199 
6499  SCNLE  9.H4»,9,193 
6499  BISP 

6999  SISP  ‘THE  RECOrtnEHSEO  LAIELINC  INTERVAL  FOR  BEFECTIVES^LOT  It  *;lNT(n4xx/t 

g> 

6919  SItP  *  ENTER  THE  LRIELINC  INTERVAL  YOU  UANT  SHOWN 

6929  OltP 

6939  lEEP 

6949  INPUT  Inx 

6999  CtUE  2 

6969  LAXEt  Inx, 9, 9, 9, -1, 1 

6979  HOVE  Inx/t, 199 

6999  LABEL  *P4<X)‘ 

6999  HOVE  4*Inx,-4.f9 

6699  LABEL  ‘BEFECTIVEt  PER  LOT,  Let  Site  •  ‘{Lslsei ‘Unt t 
6619  L4m«l99 

6629  IF  n4xx-3<199  THEN  L4a>n4xx-3 

6639  HOVE  9,109 

6640  FOR  lf«l  TO  Lie 

6699  bran  Pd(ir>,199eP4(l,tr> 

6660  BItP  Pd<lf>,ia9*P4<l,If> 

6670  mint  If 
6699  HOVE  909,990 
66*0  FOR  3«t  TO  II 


6709 

6719 

6729 

6739 

6749 

6799 

6760 

6779 

6790 

6799 

6990 

6019 

6929 

6930 
6949 
6999 
6960 
6979 
6099 
6990 
6900 
6*19 

6929 

6930 
6949 
6*90 
6*60 
6970 
6999 
6999 
7099 
7019 
7929 
7039 
7049 
7990 
7969 
7070 
7900 
7090 


IF  306  THEM  BlOP 
IF  3-6  then  BltF  * 
NEXT  3 

BEEP 

INPUT  Ret 

IF  Rete'HO"  then  7099 
PRINT  LIN(4> 

PRINT  UtIHG  6999 
PRINT  UtINC  6919 
PRINT  UtINC  6929 
IHACE  12X,* 

IHACE  12X, ■ 


BO  YOU  t/lNT  ANY  OF  TNEtE  POINTS  PRIHTEBT* 


OefcettvetlAcecRtdnce  Itdeple 
IHACE  lax.’l  Per  Let  IPreb^U Itv'NwBer 

♦,  I2x;  , «;  •  I  -xl  *35.  Ii‘l 


IHACE 
BItP 
BItP  • 
BItP 
BEEP 
INPUT  K 
BedeK 


ENTER  TNE  NUHBER  OF  BEFECTIVEt  PER  LOT 


COSUB  9349 

PRINT  UtINC  6939;B4dlP**»199,tn 

PRINT  UtINC  6999 

BItP 

BISP  *B0  YOU  WANT  ANOTNER  ONE?* 

BItP 

BEEP 

INPUT  Re* 

IF  RcM'YEt*  THEN  6949 
PRINT  LIN<4> 

BItP 

BJtp  •  BO  YOU  WANT  AN  AtN  PLOT? 

BItP 

BEEP 

INPUT  Re* 

IF  Rete'NO*  then  RETURN 


LleeltO 

IF  H4xx-3<l9t  THEN  LieeHexxO 
tige-9999* 

FOR  If>l  TO  Lie 


F-7 


7iet  IF  fl*n<If>>ltg  THEN  llg>H*n(ir> 

7111  NEXT  tr 
712«  BISF 

713*  BtSF  ■  the  largest  ASH  IS  ‘iStg 

7I4S  BtSF  ‘  ENTER  THE  NAXINUN  ASN  YOU  UANT  SNOUN  ON  THE  PLOT.  * 

713S  BISF 

71St  BEEF 

717S  INPUT  Naxy 

7180  PLOTTER  IS  •S87aA" 

7190  PLOTTER  7.9  IS  ON 
7200  LOCATE  10,100,10,100 
7210  scale  O.HAxx.O.Naxy 
7220  BISP 

7230  BISP  *  UNAT  LABELING  INTERVAL  BO  YOU  WANT  ON  THE  Y  *xU?’ 

7240  BISP 

7290  BEEP 

7200  INPUT  Iny 

7270  CSI2E  2 

7200  LANES  Inx, Iny, 0,0, *1,1 
7290  ROVE  lnx/3,n4xy«.9S 
7300  LABEL  *ASN‘ 

7310  AOVE  4«Inx,-naxy/20 

7320  label  ■BEFECTIVEO  PER  LOT,  Lot  Six*  •  *;L*4xo: ‘uni t x* 

7330  FOR  ir«l  TO  Lto 

7340  IF  IFol  THEN  AOVE  Pd<tr>,Apn(ir> 

7390  IF  (Pd<tr>oO>  ANB  (Aon<I»0>  THEN  7300 
7300  bran  Pd<IFl,A*f«ir> 

7370  NEXT  IF 
7300  return 
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